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AMIGOS DEL 

AMSTRAD 



EDITORIAL 


En los últimos meses ha alcanzado el AMSTRAD 
cotas de estimable difusión, hecho que constituye 
por sí mismo motivo más que suficiente para que 
le dedicásemos toda nuestra atención. Por ello, 
salimos con AMIGOS DEL AMSTRAD. 

En el quiosco, veremos, una revista más para el 
usuario, una nueva manera y un distinto enfoque 
de cómo utilizar el AMSTRAD. 

Con una simple mirada al sumario, en esta misma 
página, podéis haceros una idea de la trayectoria 
que pretendemos seguir. No obstante, como la 
revista está pensada y hecha para vosotros, sería 
muy interesante que participáseis en ella dando 
vuestra opinión, haciendo todo tipo de 
sugerencias, indicando, en una palabra, cómo 
queréis que sea vuestra revista. 

Esperamos vuestras opiniones. Que os guste y que 
os divertáis. 
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EXPLICACION 
DE LOS PROGRRHflS 



LABERINTO MAGICO 


10 7 PROGRAMA << LABERINTO MAGICO » 

20 ' 

30 BORDER 26:INK 0,26:1NK 1,0:INK 2,6:INK 3,2,6:SPEED INK 5,5:PAPER O:PEN 3:MODE 
O 

40 LOCATE 2,10:PRINT"L A B E R I N T O":LOCATE 5,14:PRINT"M A G I C 0“:FOR T=1 T 

O 255:SOUND 1,T,3 

50 IF SQ(1)<>4 THEN 50 ELSE NEXT 

60 FOR T=1 TO 15:SOUND 1,255,T,T 

70 IF SQ (1) <>4 THEN 70 ELSE NEXT :F'EN 1 :MODE 1 

80 RESTORE 9000:FOR Z=1 TO 22 :READ Eí: LOCATE 1,Z:PRINT E* ;CHR* (7) :NEXT 
90 IF INKEY$="" THEN 90 

100 PEN 1:MODE 0:L0CATE 1,5:PRINT"INTRODUCE TU NOMBRE":LOCATE 5,10:INPUT NM$ 

110 IF LEN(NMf)<1 OR LEN(NM$)>10 THEN 100 ELSE CLS 

120 lí=CHR$(143):SYMBOL AFTER 31:SYMBOL 140,0,60,126,102,102,126,60,0:pí=CHRf(14 

O):GQSUB 8000:GOSUB 8100:G0SUB 8200 

130 XP=2:YP=2:GOSUB 7000 

140 EVERY 100,0 GOSUB 7200 

150 EVERY 21,1 GOSUB 7500 

160 L$=INKEY$:IF L$="" THEN 160 

170 IF L*=CHR$(240) AND TEST(XP*32-16,412-<YP-1)# 16)OI THEN GOSUB 7100:YP=YP-1 : 
GOSUB 7000 

180 IF L$=CHRÍ<241) AND TEST(XP*32-16,412-(YP+1)* 16)OI THEN GOSUB 7100:YP=YP+1: 
GOSUB 7000 

190 IF L$=CHR$(242) AND TEST((XP-1)*32-16,412-YP*16)<>1 THEN GOSUB 7100:XP=XP-1: 
GOSUB 7000 

200 IF L$=CHR*(243) AND TEST ( (XP+1) *32-16,412-YP* 16) OI THEN GOSUB 7100 : XF'=XP+1 : 
GOSUB 7000 

210 IF XF-19 THEN EVERY 5000,0 GOSUB 7580:EVERY 5000,1 GOSUB 7580:GOTO 230 
220 GOTO 160 

230 PEN#0,3:L0CATE#0,4,1O:PRINT"FELICIDADES! 11 :FOR T=255 TO 1 STEP-1 :SOUND 1,T,2: 
SOUND 2,T,2 

240 IF SQ <1)<>4 THEN 240 
250 NEXT:MODE 0:PEN 2 

260 LOCATE 5,5:PRINT NM$:LOCATE 5,10:PRINT"TARDASTE";TM:LOCATE 2,12:PRINT"laberi 
ntisegundos":LOCATE 6,14:PRINT"EN SALIR":PEN 3:L0CAT 

E 1,22:PRINT"P PARA OTRA PARTIDA":LOCATE l,24sPRINT"F PARA OTRO PROGRAMA" 
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270 L$=INKEY$:IF Lí="" THEN 270 ELSE L$=UPPER$(L$) 

280 IF L$="P" THEN RUN 100 ELSE IF'L$<>"F" THEN 270 

290 INK 0,1 : INK 1,24: PAPER O.-PEN 1 :BORDER 1:MODE 1 :PRINT "PREPARADO PARA EL SIGUI 
ENTE PROGRAMA:" :RUN ,,M 

7000 PEN#0,2 :LOOATE#0,XP,YP:PRINT#0,P$:PEN#0,1:RETURN 

7100 LOCATE#0,XP,YP:PRINT#0,CHR$(32):RETURN 

7200 TM=TM+1:LOCATE#1,1,13:PRINT#1,TM;CHRí(7):RETURN 

7300 PENSO, l:XL=lKlT(RND*6+l) *3-2 :YL=INT(RND*6+1) *4-3 :IF XL=1 AND YL=1 THEN 7300 
ELSE IF XL=1 THEN XL=2:G0T0 7310 ELSE IF YL=1 THEN Y 
L=2:GOTO 7350 ELSE D=RND:IF D<0.49 THEN 7350 

7310 FOR Z = XL TO XL+2:IF ZOXP AND YLOYP THEN L0CATE#0 , Z , YL :PRINT#0 ,CHRí (32) 
7320 NEXT:RETURN 

7350 FOR Z=YL TO YL+3:IF ZOYP AND XLOXP THEN L0CATE#0 ,XL ,Z :PRINT#0 ,CHRí (32) 
7360 NEXT:RETURN 
7500 GOSUB 7300 

7505 XL=INT(RND*6+1)*3-2:YL=INT(RND*6+1)*4-3:IF XL=1 AND YL=1 THEN 7505 ELSE IF 
XL=1 THEN XL=2:G0T0 7510 ELSE IF YL=1 THEN YL=2:G0T0 
7550 ELSE D=RND:IF D<0.49 THEN 7550 

7510 FOR Z=XL TO XL+2:IF Z=XP AND YL=YF' THEN Z=XL+2 ELSE L0CATE#0,Z,YL:PRINT#0,C 
HR$<143) 

7520 NEXT:G0T0 7580 

7550 FOR Z = YL TO YL+3.-IF Z = YP AND XL=XF' THEN Z=YL+3 ELSE L0CATE#0, XL, Z :PRI NT#0 ,C 
HRS<143) 

7560 NEXT 
7580 RETURN 

8000 WINDOW #0,1 ,20,1 ,25:xí=STRING#(19,143) :F0R 2 = 1 TO 25:L0CATE #0,1 ,z :F'RINT #0 
,lí:LOCATE #0,19,z:PRINT #0,1$:NEXT:L0CATE #0,1,1:PR 
INT #0,x$:L0CATE #0,1,25:PRINT #0,x$ 

8010 z = INT (RND (TIME) *22+2) : IF Z<>5 AND Z<>9 AND Z<>13 AND Z017 AND Z<>21 THEN L 
OCATE 19 ,z :PRINT CHR$ (32) .-RETURN ELSE 8010 

8100 WINDOW #1,20,20,1,25 :PEN #1,3:L0CATE #1,1,6:PRINT#1,"TIEMPO":RETURN 
8200 X$=LEFT$(X$,LEN(X$)-1):FOR Z=4 TO 16 STEP 3:FOR Y=2 TO 24:L0CATE Z,Y:PRINT 
L$:NEXT Y,Z:FOR Y=5 TO 23 STEP 4:L0CATE 1,Y:PRINT Xí 
:NEXT:RETURN 


Es una prueba contra reloj en 
Tu (Personaje s 


9000 DATA " LABERINTO MAGICO",, 
un",laberinto siempre cambiante.,," El objetivo del 
juego es conseguir",sal ir de el en el minimo tiempo posible.,," 
era una pelota de color" 

9010 DATA rojo que aparecerá siempre en la,esquina superior—izquierda del mónita' 
r,"y que debes llevar hasta la apertura, en","la mur 
alia exterior, en el otro extremo",de la pantalla. 

9020 DATA ,," La pelota se mueve con las cuatro",tec1 as del cursor.,,,," PULSA 
CUALQUIER TECLA PARA COMENZAR" 



MOSQUITO 

1 INK 0,0: INK 1,26:PAPER 0:PEN 1 .-BORDER 0:M0DE 2 

10 CLS:RESTORE 10000:FOR 1=1 TO 19:READ Xí:L0CATE 1,I:PRINT X*:NEXT I 
12 X$=INKEY*:IF Xí="" THEN 12 
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100 CLS :CLEAR :ra=l : INF'UT "Introduce el nuaera de puntos de la nube " ;nn 

110’ £L3rLGG^TE 1 ,10 sFRINT 44 1 rHomotec la“ ¡LOCATI i , 12 sPKINT R 2?Rotacion sobre un pun 

to" :L0CATE 1 ,14 :F'RINT"3 :Rotac ion mas homotec ia" :L0CA 

TE 1,16:PRINT"4:Abandonar" 

112 x$=INKEYÍ:IF xí<"l" 0R x$>"4" THEN 112 
114 CLS:0N VAL(x*) GÜSUB 198,220,210,250 
116 ORIGIN xg,yg:G0T0 500 
198 GOSUB 300 

200 INF'UT"Razon de la homotecia (<1 comprimir >1 expandir) " ¡ra :CLS :RETURN 
210 GOSUB 200:CLS 
220 GOSUB 300 

224 INF'UT" Introduce el angula de giro (en radianes) " ¡ng :RETURN 
250 CLEAR:INK 0,1:INK 1,24:PAPER 0:PEN T:M0DE 1:SORBER 1:RUN" 

300 CLS: INF'UT" Introduce la ordenada del centro (0 a 599) ";xg:IF xg<0 OR xg>599 
THEN 300 ELSE CLS 

302 INF'UT" Introduce la abscisa del centro (0 a 399) ";yg:IF yg<0 OR yg>399 THEN 
302 ELSE CLS:RETURN 

500 GOSUB 1000:CLS:F0R i=l TO nn:x=INT(RND#600)-xg: y =INT(RND*400)-yg:xx =(ix+ra*x 
) *C0S (ng)-(ra*y+iy)*SIN(ng) : yy = ( ix+ra*x ) *SIN (ng) + (ra' 

*y+i y)#COS(ng) 

502 F'LOT x , y :PL0T xx,yy:NEXT i 

510 X$=INKEYÍ:IF X$="“ THEN 510 ELSE CLS:RUN 100 

1000 CLS:L0CATE 10,10:PRINT"LA NUBE PERMANECERA EN PANTALLA HASTA QUE PULSES TEC 
LA" 

1001 X$=INKEY$:IF X$="" THEN 1001 ELSE RETURN 

10000 DATA " PUNTOS",," Con este programa podras 

ver como actúan las homotecias, los giros y la comb 
i-","nación de ambos, actuando sobre una nube de puntos." 

10002 DATA" El programa primero te pedirá el numero de puntos y a continuación t 
endras que","elegir entre realizar una homotecia, un 
a rotación sobre un punto o una rotación" 

10004 DATA"mas una homotecia, luego tendrás que darle el centro del giro o de la 
homotecia","la razón de la homotecia y el ángulo de 
giro (en radianes)." 

10006 DATA," Un consejo, para ver bien los giros usa ángulos del orden de .05 ra 
dianes, y","para las homotecias usa razones del orde 

n de .9 o 1.1, pero mejor que pruebes","con todas las combinaciones posibles." 
10008 DATA,,,,,," PULSA TECLA PARA COMENZAR" 

10 REM +++++ MOSQUITO +++++ 

20 ' 

30 B0RDER 9 :1NK 0,9 :1NK 1 ,24 :1NK 2,6:1 NK 3,2: PAPER 0 :F'EN 1 : M0DE 1 : CLS 
40 RESTORE 9000.-F0R 1=3 T0 22 :READ E$:L0CATE 1,Z:PRINT E$ ;CHR* (7) :NEXT :G0SUB 910 
0 

50 IF INKEY$="" THEN 50 ELSE CLS 

60 LOCATE 3,7: F’R I NT"ELECC10N DE LAS TECLAS DE JUEGO :": LOCATE 5,12 : F'R I NT " PARA SUB 
IR?" 

70 LÍ=INKEY$:IF Lí="" THEN 70 ELSE IF L*OCHR$ (13) THEN LOCATE 1,1:PRINT "SUBIR: 
";LÍ:S$=LÍ 

80 LOCATE 5,12:PRINT"PARA BAJAR" 

90 L$=INKEY$:IF L#="" THEN 90 ELSE IF L$OCHR$(13> THEN LOCATE 20,1:PRINT "BAJAR 
: " ¡¡L* :B*=LÍ 

100 LOCATE 5,12:PRINT"PARA IR A LA DERECHA?" 

110 L$=INKEYí: IF L*="" THEN 110 ELSE IF L$OCHR$(13) THEN LOCATE 1,3:PRINT "DERE 
CHA: ";L$:DÍ=L* 

120 LOCATE 5,12:F'RINT"PARA IR A LA IZQUIERDA?" 

130 L$=INKEY*:IF L*="" THEN 130 ELSE IF L$OCHR*<13> THEN LOCATE 20,3:F'RINT "IZQ 
UIERDA : " ;L$:If=LÍ 

140 LOCATE 5,22 :F'RI NT "ESTAS CONFORME? (S/N) " 

150 Lf=INKEYÍ:IF LS="" THEN 150 ELSE LÍ=UPPERÍ<L$):IF L$="N" THEN CLS:G0T0 60 EL 

SE IF L$O n S" THEN 150 

160 BORDER 25:CLS:N=RND(TIME) 

170 LOCATE 1 ,1 :F'RINT STRINGÍ <40,143) : LOCATE 1,2:PRINT STRINGÍ (40,143) : GOSUB 8000 
: GOSUB 8100:GOSUB 8200: GOSUB 8300 
180 F'EN 3 :F0R Z=1 TO TM 

190 XS(Z)=INT(RNDJ(t38+2) : YS (Z) =INT (RND*21) +4 

200 IF TEST(XS(Z)*16-8,400-(YS(Z)*16-8))<>0 THEN 190 

210 LOCATE XS(Z) ,YS(Z) :F'RINT SF'f :NEXT :PEN 1 

220 PEN 2: F OR Z=1 TO 10 
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230 XM(Z)=INT(RND*38+2):YM(Z)=INT(RND*20>+4 

240 IF TEST<XM(Z>*16-8,400-<YM<Z>*16-8))<>0 THEN 230 

250 LOCATE XM(Z) ,YM(Z) :F'RINT MNÍ :NEXT :F'EN 1 

260 XV=INT(RND*38+2): YV=INT<RND*21)+4:IF TEST(XV*16-8,400-(YV#16-8)X>0 THEN 260 
ELSE PEN 3 ¡¡LOCATE XV,YV:PRINT VÍ:F'EN 1 

270 XA=INT(RND*40+1) : YA=INT<RND*21)+4:IF TEST(XA*16-8,400-(YA#16-8)X>0 THEN 270 
ELSE PEN 3:LOCATE XA , YA:PRINT AR$:PEN 1 

280 XM=INT(RND*38+2> : YM=INT<RND*21)+4:IF TEST(XM*16-8,400-(YM*16-8)X>0 THEN 280 
ELSE LOCATE XM,YM:PRINT MD$:DR$="D" 

290 J=0:L$=INKEY$ 

300 IF L$=S$ THEN GOSUB 1000:J=1 
310 IF L$=B$ THEN GOSUB U00:J=1 
320 IF L$=D$ THEN GOSUB 1200:J=1 
330 IF L$=I$ THEN GOSUB 1300:J=1 
335 IF J=1 THEN GOTO 1400 
340 IF j=l THEN SOUND 1,500,2 
350 K=RND+0.2:IF KCZN/10 THEN 1500 
360 GOTO 290 

1000 LOCATE XM,YM:PRINT ES:IF YM>3 THEN YM=YM-1 
1010 RETURN 

1100 LOCATE XM,YM:PRINT. E$:IF YM<23 THEN YM=YM+1 
1110 RETURN 

1200 LOCATE XM,YM:PRINT E*:IF XMC39 THEN XM=XM+1:DR$="D" 

1210 RETURN 

1300 LOCATE XM , YM :PRINT Eí:IF XM>2 THEN XM=XM-1 :DR$=" I " 

1310 RETURN 

1400 TC=TEST(XM#16-8,400-(YM*16-8)) 

1410 IF TC=2 THEN E=E+100:GOSUB 8000:MN=MN-1 
1420 IF TC=3 THEN 1600 

1430 IF XM=XV AND YM=YV AND MN=0 THEN 2000 

1440 LOCATE XM,YM:IF DR$="D" THEN F'RINT MD$ ELSE PRINT MI$ 

1450 E=E-10:GOSUB 8000:IF E<=0 THEN 1600 
1460 GOTO 340 

1500 IF XM<=XA AND TEST((XA-1)#16-8,400-(YA*16-8))=0 AND XA>3 THEN LOCATE XA,YA: 
PRINT E$:XA=XA-1:GOTO 1520 

1510 IF XM>=XA AND TEST<(XA+1)*16-8,400-(YA*16-8))=0 AND XA<38 THEN LOCATE XA,YA 
:PRINT E$ : XA=XA+1 

1520 IF YM<=YA AND TEST(XA*16-8,400-((YA-1)*16-8))=0 AND YA>4 THEN LOCATE XA,YA: 
PRINT Ef :YA=YA-1:GOTO 1540 

1530 IF YM>=YA AND TEST(XA*16-8,400-((YA+1)*16-8))=0 AND YA<23 THEN LOCATE XA,YA 
:PRINT E$:YA=YA+1 

1540 PEN 3 :LOCATE XA , YA zF'RINT ARÍzF'EN 1 

1550 IF XA=XM AND YA=YM THEN 1600 ELSE GOTO 290 

1600 FOR T=100 TO 1200 STEP 100:S0UND 1,T,T/100:NEXT:LOCATE 16+MS*3,2:PRINT CHRÍ 
(143) :MS=MS-1:FOR T=1 TO 1000:NEXT 
1610 IF MS<=0 THEN 1690 

1620 LOCATE 5,10:PRINT"CONTINUAMOS? (S/N)" 

1630 L*»INKEY$:IF Lf="" THEN 1630 ELSE L$=UF'PER$<L$) : IF L$="S" THEN GOSUB 9150:G 
OTO 160 ELSE IF L$<>"N" THEN 1630 ELSE 1700 

1690 LOCATE 4,10:PRINT"HAN MUERTO TODOS TUS MOSQUITOS":FOR T=1 TO 2000:NEXT 
1700 CLS:LOCATE 1,12:PRINT"PARA CflRA PARTIDA PULSA LA TECLA P":LOCATE 1,14:PRINT 
"PARA DEJAR EL PROGRAMA PULSA F" 

1710 L*=INKEY$:IF Lí="" THEN 1710 ELSE Lf=UPPER$<L$):IF L*="P" THEN RUN ELSE IF 
L-$<>"F" THEN 1710 

1720 BORDER 1:INK 0,1:INK 1,24:PAPER 0:PEN 1:CLS:PRINT"PERPARADO PARA EL SIGUIEN 
TE PROGRAMA:":RUN"" 

2000 FOR Z = 1 TO TM:LOCATE XS(Z) ,YS(Z) :PRINT E$:PT=PT+10:SOUND 1,100,3:GDSUB 8100 
:FOR T=1 TO 100:NEXT T,Z:ZN=ZN+1:GOSUB 9150:GOTO 160 

8000 PEN 3:PAPER 1:LOCATE 1,1:PRINT USING"ENERGIA:####";E:PAPER 0:PEN 1 
8010 IF MN=0 THEN LOCATE XV,YV:PRINT CHRt(249) 

8020 RETURN 

8100 PEN 3:PAPER 1:LOCATE 14,1:PRINT USING"PUNTOS:#####";PT:PAPER O:PEN 1:RETURN 
8200 PEN 3: PAPER 1 :LOCATE 27,1 .-PRINT USING"HABITACION :###" ;ZN :PAPER 0:PEN 1 :RETU 
RN 

8300 PEN 3: PAPER 1 :LOCATE 5,2 .-PRINT "MOSQUITOS:" :FOR Z = 1 TO MS: LOCATE 16+Z*3,2:P 
RINT ttD* :NEXT:PAF-ER 0:PEN 1 :RETURN 

9000 DATA " M O S Q U I T O",," En MOSQUITO tendrás que sobrevivir e 

n","una habitación, que es un ambiente muy",hostil p 

ara los de tu especie.,," Para tener energia comerás de los" , "-frutos que hay en 
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la habitación, pero" 

9010 DATA con cuidado de no tropezar con los,insecticidas ni con el aracnido que 
,trataran de eliminarte.,," Por -fin podras salir po 

r la ventana" ,cuando te hayas comido todos los -frutos,de la habitación.,," El m 
ovimiento del mosquito se realiza" 

9020 DATA con las teclas que tu elijas.,," PULSA UNA TECLA PARA CONTINUAR" 
9100 SYMBOL AFTER 243:SYMB0L 244,99,50,30,30,47,255,42,21:SYMB0L 245,198,70,120, 
120,244,255,84,168 

9120 SYMBOL 246,4,8,110,255,255,255,126,60:SYMB0L 247,60,38,36,60,44,52,52,60:SY 
MB0L 248,24,60,102,255,189,165,165,165 

9130 SYMBOL 249,255,153,153,Í53,153,153,153,255:MI$=CHR$(244):MD$=CHR*(245);MN$= 
CHRf (246) :SF'Í=CHR$ (247) :AR*=CHR$ (248) :V$=CHR$ (143) 

9140 E$=CHR$(32) :E=500:PT=0:ZN=1:MS=5:DIM XM(10) ,YM(10) 

9150 E=500:MN=1Q:TM=Í0+ZN#5:XS(1)=1:YS(1)=1:ERASE XS,YS:DIM XS(TM),YS(TM)rRETURN 



ESPACIO 


:F0R t =10 TO 500 STEP 10:S0UND 5,t,l 


10 SYMBOL AFTER 239 

20 INK 0,0: INK 1,26:INK 3,24,8:PAPER 0 
30 MUDE 0:B0RDER 0:G0SUB 380 
40 LOCATE 1 ,13:PEN 3:PRINT" ESPACIO 

0 :NEXT 

50 MODE 1 :PEN 1 :PRINT : PRINT :F'RINT" Al regresar de tu paseo espacial 

60 PRINT " encuentras que tu nave ha sido des-" 

70 PRINT " montada por unos diminutos seres " 

80 PRINT " galácticos. " 

90 F'RINT:PRINT " Debes recontruirla antes de que se" 


100 PRINT 
110 PRINT 
120 PRINT 
130 PRINT 
140 PRINT 


agote tu reserva de oxigeno, para " 
ello tienes que colocar sus piezas" 
sobre la plataforma de despegue " 
empezando por la base y terminando 

do por el FUEL...F'ero.." 

150 PRINT:PRINT "!!TEN CUIDADO CON LOS EXTRATERRESTRES!!" 
160 PRINT:PRINT:PRINT" (UTILIZA JOYSTICK 0 CURSOR)" 

170 LOCATE 1,22:PRINT"PARA COMENZAR EL JUEGO PULSA UNA TECLA" 

180 IF INKEY$="" THEN 180 ELSE CLS 

190 SYMBOL 250,24,60,90,126,60,24,231,153 

200 SYMBOL 251,1,3,6,4,131,65,39,31 

210 SYMBOL 252,2,1,1,2,2,2,2,6 

220 SYMBOL 253,128,192,96,32,192,128,224,112 

230 SYMBOL 254,200,135,128,64,64,64,64,96 

240 SYMBOL 240,1,3,3,5,4,5,5,9 

250 SYMBOL 241,10,10,11,10,11,10,11,10 

260 SYMBOL 242,128,192,192,160,32,160,160,144 

270 SYMBOL 243,80,208,80,208,80,208,80,208 

280 SYMBOL 244,27,21,21,22,20,25,27,29 

290 SYMBOL 245,216,168,168,104,40,152,216,184 

300 SYMBOL 246,50,116,99,116,104,112,96,64 

310 SYMBOL 1'17,76,46,198,46,22,14,6,2 

320 SYMBOL 148,0,0,0,63,127,149,181,149 
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330 SYMBOL 249,0,0,0,240,248,44,108,44 
340 SYMBOL 255,181,177,127,63,0,0,0,0 
350 SYMBOL 239,108,36,248,240,0,0,0,0 
360 MODE 1 : INK 0,0sINK 1,26 .-BORDER O 
370 PR=1 

380 FOR i = l TO 640 STEP 4 
390 PLOT i,RND*400,l 
400 ÜJEXT 


410 DEG 

420 MOVE 20,350 

430 FOR i=l TO 360 STÉP 3 

440 DRAW 25+40*SIN(i) ,350+40*C0S<i) 

450 NEXT 

460 MOVE 12,355:FILL 1 

470 IF PR=0 THEN RETURN 

480 x=340:y=340:-fx=270:-f y=360 

490 nlx=600:nly=265:n2x=150:n2y=350 

500 mlx=-10:m2x=650:m3x=-10:m4x=650 

510 LOCATE 1,24:PRINT "OXIGENO"; 

520 MOVE 1,15,3:DRAW 250,15:DRAW 250,0:DRAW 1,0:DRAW 1,15 

530 MOVE 3,12:FILL 3 

540 TAG 

550 GOSUB 990 

560 z = INT(TIME/300) 

570 MOVE x,y,1,0:PRINT CHR$(251);:PRINT CHRí<253); 

580 MOVE x , y-16 :F'RINT CHR$(252);:PRINT CHR$(254); 

590 IF a>640 THEN a=0 
600 a=a+7 

610 mlx =((a)#2)MOD 640:mly=<60*SIN(a))+240+RND*16 
620 m3x=((a)*2)MOD 640:m3y=<40#SIN(a))+125+RND*16 
630 m2x= ( (632-a) #2) MOD 640 :m2y= (60*SÍN (a) ) +200+RND#15 
640 MOVE m1x ,m1 y,3:PRINT CHRí(250); 

650 MOVE m3x,m3y,3:PRINT CHR$<250); 

660 MOVE m2x,m2y:PRINT CHR$<250); 

670 t=(INT(TIME/300)-z)*2 

680 MOVE 400,10:DRAW 460,10:DRAW 460,O:DRAW 400,O:DRAW 400 1O 

690 MOVE 430,2:FILL 1 

700 MOVE 250-t ,15: F'R I NT CHR$(32); 

710 IF T>250 THEN 1300 

720 IF M1X +16 > X AND M1XÍX+32 AND M1Y-16ÍY AND MlY>Y-32 THEN TAGOFF :F'RINT CHR$<7) 
;:TAG:Z = Z-5 

730 IF M2X+16>X AND M2XCX+32 AND M2Y-16ÍY AND M2Y>Y-32 THEN TAGOFF:PRINT CHRt(7) 
;:TAG:Z=Z—5 

740 IF M3X+16>X AND M3XCX+32 AND M3Y-16ÍY AND M3Y>Y-32 THEN TAGOFF:PRINT CHR$(7) 
;:TAG:Z=Z-5 


750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 


INKEY (O) 0-1 
INKEY <2)0-1 
INKEY (8) 0-1 
INKEY (1)0-1 
c 1=0 


X , y , U , 


OR 
OR 
OR 
OR 

GOTO 820 
2:PRINT 


INKEY(72) 
INKEY(73) 
INKEY(74) 
INKEY(75) 

CHR$<251) 


IF 
IF 
IF 
IF 
IF 

MOVE 

MOVE x 'y-16,0,2:PRINT CHR$( 
IF Cy=í THEN y=y+8:cy=0 
IF C y =—1 THEN y=y— 8 :cy=0 
IF ex = 1 THEN x=x+8:cx=0 
IF cx=-l THEN x=x-8:cx=0 
IF x >640 THEN x=0 
IF n1x>640 THEN nlx=x+30 
IF n2x >640 THEN n2x=x+30 
IF fx >640 THEN fx=x+31 
IF x+32>nlx AND x<nlx+32 
T CHRf(244);:PRINT CHR#(245) 


< >-1 
0-1 
< >-1 


THEN 

THEN 

THEN 

THEN 


Cl=l:cy=l 
Cl = l :cy=-l 
c1 = 1 :cx=-l 
c 1 = 1 : c x = 1 


¡:PRINT CHR$(253) ; 
j 1) ;:PRINT CHRÍ(254) 


: c 1 =0 


AND y>nly-32 AND y-32<nl y THEN MOVE ni; 
:MOVE nlx,nly-16:PRINT 


,n1 y,,2:PRIN 


.-GOTO 
>n' ? 


CHRÍ(246) ; :PRINT CHRí(247) ; :cn = l:GOTO 970 

AND x<n2x+32 AND y >n2y-32 AND y-32<n2y THEN MOVE n2x ,n2y , ,2 :PRIN 
T CHRf (240) ; :PRINT CHRí (242) ;:MOVE n2x ,n2y-16 :F'RINT 
CHR$ (241) ; :F'RINT CHR$ (243) ; :cn = l :GOTO 1020 
920 IF x+32>fx AND x<fx+32 AND y>-fy-32 AND y-32<-fy THEN 
(248) ; :PRINT CHRf (249) ; :MOVE -f x ,f y-16 :PRINT CHR$(25Fi 
) ;:PRINT CHRí(239) ;:cn = l :GOTO 1070 


MOVE -fx ,-f y , ,2 :F'RINT CHRí 
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930 MOVE m1x,m1y,,2:PRINT CHR$(32>; 

940 MOVE m3x,m3y:PRINT CHRf(32); 

950 MOVE m2x,m2ySPRINT CHR*<32); 

960 GOTO 570 

970 IE.-ro=I -ANO-h=Q JHEhl_nLx sxJ-30--SQj.4jsy 

980 IF n1x +24 >400 AND nlx<460 AND nly<75 THEN nlX=410:nly=42 sh=l 
990 MOVE nlx,nly,1,OsPRINT CHR$(244);SPRINT CHR$<245>; 

1000 MOVE nlx,nly-16SPRINT CHRf(246);SPRINT CHRí<247); 

1010 IF cn=l THEN 930 

1020 IF cn=l AND h=l THEN n2x=x+26:n2y=y 

1030 IF n2x+24>400 AND n2x<460 AND n2y<90 AND n2y>32 THEN n2X=410sn2y=74sh=; 
1040 MOVE n2x,n2y,1,0 SPRINT CHRí(240) ; sPRINT CHRÍ<242); 

1050 MOVE n2x ,n2y-16 sPRINT CHR$(241);sPRINT CHR$<243>;’ 

1060 IF cn=l THEN 930 

1070 IF cn=l AND h=2 THEN -fx=x+31 sfy=y 

1080 IF f x+20>400 AND -fx<450 AND -fyClOO THEN fX=410y=-20:y=-20sGOTO 1130 
1090 MOVE fx,fy, 1,3sPRINT CHR*(248);sPRINT CHR$(249); 

1100 MOVE fx ,fy-16 SPRINT CHR$ (255) ; sPRINT CHR$<239);’ 

1110 IF cn=l THEN 930 
1120 RETURN 

1130 n2y=n2y+7 sn1y=n1y+7 
1140 nlx=nlx-2sn2x=n2x-2 

1150 MOVE n2x,n2y,1,0 sPRINT CHRÍ(240) ; sPRINT CHRt(242); 

1160 MOVE n2x,n2y-16sPRINT CHR$ <241) ;sPRINT CHR*<243);' 

1170 MQVE nlx,nlysPRINT CHRí(244) ;sPRINT CHR$(245) ; 

USO MOVE nlx ,n 1 y-16 sPRINT CHR* (246) ¡¡ sPRINT CHR$<247); 

1190 FRAME s FRAME s FRAME s FRAME s FRAME 
1200 IF ni y>430 THEN 1270 

1210 MOVE n2x,n2y,0,2 sPRINT CHR$(240) ; sPRINT CHR$<242>; 

1220 MOVE n2x ,n2y-16SPRINT CHR$(241);sPRINT CHR$<243); 

1230 MOVE nlx,nlysPRINT CHR$(244);sPRINT CHR$(245); 

1240 MOVE nlx,n1 y-16sPRINT CHR$(246) ;sPRINT CHR$(247); 

1250 MOVE nlx,nly-23sPRINT CHR$(143);sPRINT CHR$<143)• 

1260 GOTO 1130 

1270 MODE ls BORDER 17 sINK 0,26 sINK 1,0 

1280 LOCATE 1,10 sPRINT "### !! ENHORABUENA LO COSEGUISTES 11 ***" 

1290 GOTO 1340 

1300 MODE 1: BORDER 17 sINK 0,26 sINK 1,0 

1310 LOCATE 5,10 sPRINT "*** LO SIENTO TE HAS QUEDADO *##" 

1320 PRINT sPRINT" *#* SIN OXIGENO ###" 

1330 GOTO 1340 

1340 LOCATE 1,19sPRINT " *** LO INTENTAS DE NUEVO CS/N] ***" 

1350 A$=INKEY$ 

1360 IF A*="S" OR A$="s" THEN CLEAR sGOTO 190 
1370 IF AÍ="N" OR A$="n" THEN CLSsEND 
1380 GOTO 1350 




FANTASMA 


10 CLEAR 

20 REM ?/.?<?<?<?<?■<?<?< PRESENTACION 
30 MODE OsIN 0,0:BORDER O 
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?<&?<?<?<?<?<?< 





















inmn 







40 INK 1, 
50 CLS 

,3 





60 LOCATE 3,6:PRINT"F A N T A S M A" 

70 SOUND 1 ,568,20,7:SOUND 1 ,638,20,7:S0UND 1,568,150,7¡SOUND 1,758,40,7:SOUND 
716,40,7:S0UND 1,758,40,7¡SOUND 1,851,40,7¡SOUND 1,9 
56^40,7¡SOUND 1,902,170,7 ¡ SOUND 1,851,170,7 
80 FOR X=1 TO 700:NEXT 
90 FOR SA1 = 1 TO 18 

100 LOCATE 4 ,SA1¡PRINT CHRÍ(149)¡FOR RET=1 TO 200¡NEXT RET ¡NEXT SAI 
110 FOR SA2=1 TO 24 

120 LOCATE 16,SA2¡PRINT CHR$(133) ¡FOR RET=1 TO 200¡NEXT RET¡NEXT SA2 
130 FOR SA3=1 TO 13 

140 LOCATE 12,SA3 ¡PRINT CHR*<133) ¡FOR RET =1 TO 200¡NEXT RET¡NEXT SA3 
150 FOR SA4=1 TO 7 

160 LOCATE 19,SA4¡PRINT CHRí(149) ¡FOR RET=1 TO 200¡NEXT RET ¡NEXT SA4 
170 FOR SA5=1 TO 20 

180 LOCATE 8,SA5¡PRINT CHR$(138)¡FOR RET=1 TO 200¡NEXT RET¡NEXT SA5 
190 FOR SA6=1 TO 15 

200 LOCATE 14,SA6¡PRINT CHR$(149)¡FOR RET=1 TO 200¡NEXT RET¡NEXT SA6 
210 C0=0 

220 X=INT(RND<1)*20) 

230 Y=INT(RND(1)*24) 

240 IF (Y>24 OR Y<1) OR (X>20 OR X<1) THEN 220 
250 LOCATE X,Y¡PRINT CHRf(143) 

260 SOUND 1,Y,X¡SOUND 1,C0,Y 
270 C0=C0+1 

280 IF C0>200 THEN 300 
290 GOTO 220 
300 MODE 1 

310 INK 0,1¡INK 1,16¡CLS 

320 REM INSTRUCCIONES &&&?<& 

330 LOCATE 12,3¡F'RINT"F A N T A S M A" 

340 LOCATE 12 ,4¡PRINT"===============" 

350 LOCATE l,6¡PRINT"Te encuentras en un oscuro bosque de las tierras del mas 
la, y delante de ti se planta una casa plagada de fa 
ntasmas horribles que quieren volverte loco." 

360 PRINT"Con la ayuda de tu tirachinas debes intentar acabar con ellos en un 
empo limite, o de lo contrario te veras perdido." 

370 PRINT ¡PRINT" f 5 6" 

380 PRINT" " ;CHR$(24U ;" " ;CHR$ (241) ; " ";CHR$<241) 


390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 


PRINT " VENTANA VENTANA 

PRINT " IZQUIERDA CENTRAL 

PRINT ¡PRINT" ■ 1 ; 

PRINT" ";CHR$(241) 

PRINT " PUERTA PUERTA 

PRINT " IZQUIERDA CENTRAL 


VENTANA" 

DERECHA" 

3" 

";CHR$(241) 
PUERTA" 
DERECHA" 


PEN 3 ¡LOCATE 13 ,24:PRINT"PULSA UNA TECLA" 
F$=INKEY$ 


IF F*="" THEN 460 ELSE 480 
MODE O 

PAPER 5 ¡BORDER l.-INK 1,26 ¡CLS 
TIEMP0=0 


CHR$<241> 


510 REM ====== FANTASMAS ====== 

520 REM ===MARCEL RISQUES 85=== 

530 REM ======================= 

540 REM &&&&&&&& ESTRELLAS ?<&&&?<&&& 
550 A=0 


560 

570 

580 

590 

600 

610 



ESTREX = INT(RND(1)*640) ¡ESTREY=INT(RND (1)*400) 

PLOT ESTREX,ESTREY¡A=A+1 
IF A=100 THEN 600 
GOTO 560 

REM CASA 

FOR XCASA=4 TO 17 
FOR YCASA=7 TO 17 

PEN 3 ¡LOCATE XCASA,YCASA¡PRINT CHR$(143) ¡NEXT ¡NEXT 
REM &&&&&&&&&& SUELO ?<&?<&?<&?<?/?/?< 


1 , 


al 

ti 
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650 FOR SUEX=1 TO 20:F0R SUEY=18 TO 25 

660 F'EN 9 ¡LOCATE SUEX ,SUEY zF'RINT CHR$<127)¡NEXT¡NEXT 

670 REM VENTANAS &?<?<?< ?<?<?<&?<&?< 

680 SQUND 1,18,10,5:S0UND 1 ,1000,4¡SOUND 1,200,12,7¡SOUND 1,100,18,4 

690 X=0 :PEN 8:L0CATE 5,9:PRINT CHR$(131) : LOCATE 6,9:F'RINT CHRÍ(131)¡LOCATE 5,10: 

PRINT CHR* <140) ¡LOCATE 6,10:PRINT CHRÍU40) 

700 LOCATE 10,9 ¡PR-INT CHRÍ<131>¡LOCATE 11,9:PRINT CHR$<131)¡LOCATE 10,10:PRINT C 
HR$<140)¡LOCATE 11,10:PRINT CHR$(140) 

710 LOCATE 15,9¡PRINT CHR$(131)¡LOCATE 16,9:PRINT CHR$(131)¡LOCATE 15,10:PRINT C 
HR$(140)¡LOCATE 16,10:PRINT CHR$<140) 

720 REM &&&&&&&&&&& PUERTAS &?<?<?<?<&?<?<?<?■<?< 

730 FOR YF'UERTAS=14 TO 16 

740 LOCATE 6 , Y F'UERT AS : PR I NT CHRí(206) ¡LOCATE 7 , YPUERTAS ¡PRINT CHRÍ(206) 

750 LOCATE 10,YPUERTAS¡PRINT CHR*(206)¡LOCATE 11,YPUERTAS¡PRINT CHR$(206) 

760 LOCATE 14,YPUERTAS¡PRINT CHR$(206) ¡LOCATE 15,YPUERTAS¡PRINT CHR$(206) ¡NEXT 


770 REM ?<?<?<?/.?/?<?<?<?/?< LUNA ■ ?<?<?<?<?<?<?<?<?<?<?<?< 

780 PEN 2¡LOCATE 2,2:PRINT CHR$(214)¡LOCATE 1 
CHRt(213)¡LOCATE 3,2¡PRINT CHR*(212)¡LOCATE 
NT CHR$<215> 

790 REM ?<?<?<?<?<?<? < ?<?/?<? < ?/FANT ASMAS?'?<?/?/?/?<?/?/?<?/ 

800 PEN 4 

810 FAN=INT(RND(l)Hí6+l) 


,3¡PRINT CHRÍ (143) ¡LOCATE 2,4:PRINT 
3,4¡PRI 


820 IF FAN<1 OR FAN>6 THEN 810 

830 IF FAN=1 THEN LOCATE 5,10:PRINT CHR*(224)¡FOR TI=1 TO 320 ¡ X=1¡NEXT¡GOTO 890 

840 IF FAN=2 THEN LOCATE 11,10¡PRINT CHR*(224)¡FOR TI = 1 TO 320 : X=2: NEXT : GOTO 890 

850 IF FAN=3 THEN LOCATE 15,10:PRINT CHR*<224)¡FOR TI=1 TO 320:X=3¡NEXT¡GOTO 890 

860 IF FAN=4 THEN LOCATE 7,15:PRINT CHR*(224)¡LOCATE 7,16:PRINT CHR*(253)¡FOR TI 

=1 TO 320¡X=4¡NEXT¡GOTO 890 

870 IF FAN=5 THEN LOCATE 10,15 ¡PRINT CHR*(224)¡LOCATE 10,16 ¡PRINT CHR*(253)¡FOR 
TI=1 TO 320¡X=5¡NEXT¡X=1¡GOTO 890 

880 IF FAN=6 THEN LOCATE 15,15¡F'RINT CHR*(224)¡LOCATE 15,16:F'RINT CHR*(253)¡FOR 

TI=1 TO 320¡X=6¡NEXT¡GOTO 890 

890 REM ?'?<?'?'?'?/?/?'?<?' DISPAROS ?<?<?<?<?<?<?<?<?/?< 

900 A*=INKEY*:IF A*="4" AND X=1 THEN LOCATE 5,10:PRINT CHR*(225)¡FOR TI=1 TO 300 
¡NEXTzLOCATE 5,10:PRINT CHR*(238)¡SOUND l,5O,20:PUNT 
0S=F'UNT0S+1 ¡GOTO 670 

910 A*=INKEY*¡IF A*="5" AND X=2 THEN LOCATE 11,10¡PRINT CHR*(225)¡FOR TI=1 TO 30 
O ¡NEXT ¡LOCATE U,10:PRINT CHR*(238)¡SOUND 1,50,20:PU 
NT0S=F'UNT0S+1 ¡GOTO 670 

920 A*=INKEY*:IF A*="6" AND X=3 THEN LOCATE 15,10:PRINT CHR* (225) ¡FOR TI = 1 TO 30 
O ¡NEXT: LOCATE 15,10:PR I NT CHR* (238 >„: SOUND 1 ,50,20 :PU 
NT0S=F'UNT0S+1 ¡GOTO 670 

930 Aí=INKE Y * : IF A*="l" AND X = 4 THEN LOCATE 7,15:PRINT CHR*(225)¡FOR TI = 1 TO 300 
¡NEXT¡LOCATE 7,15:F'RINT CHR*(238)¡SOUND 1 ,50 ,20 ¡F'UNT 
0S=F'UNT0S+1 ¡GOTO 670 

940 A*=INKEY*¡IF A*="2" AND X=5 THEN LOCATE 10,15¡PRINT CHR*(225)¡FOR TI=1 TO 30 
O¡NEXT¡LOCATE 10,15¡PRINT CHR*(238)SOUND l,50,2O¡PUN 
T0S=PUNT0S+1¡GOTO 670 

950 A*=INKEY*: IF A*="3" AND X=6 THEN LOCATE 15,15:PRINT CHR*(225)¡FOR TI = 1 TO 30 
O¡NEXT¡LOCATE 15,15¡PRINT CHR*(238)¡SOÜND 1,50,20¡PU 
NT0S=F'UNT0S+1 ¡GOTO 670 
960 REM ?/?/?/?'?'?/?<?' MARCADOR ?<?<?/&?<?/?/?< 

970 PEN 3 

980 PEN 6¡LOCATE 8,24:PRINT "PUNTOS: 

990 REM ?'?<?<?<?<?<?<?< TIEMPO ?/?<?<?<?<?/?<?/ 

1000 TI EMF'0=T IEMPO+1 
1010 IF TIEMF'0=40 THEN 1030 
1020 GOTO 670 

1030 REM ?(?'?'?<?<?.-?' OTRA PARTIDA ?<?<?/?<?<?<?< 

1040 CLS ¡F'EN 12 

1050 LOCATE 4,18 ¡F'RINT"PUNTUACION : " ¡F'U 
1060 LOCATE 3 ,8¡PRINT"GRACIAS CAMPEON" 

1070 LOCATE 2 ,25 ¡F'RINT"OTRA PARTIDA (5/ 

1080 L*=INKEY* 

1090 IF L*--"S" OR L*="s" THEN 10 
1100 IF L*="N" OR L*="n" THEN MODE 1 ¡F'A 
1110 IF NOT (L. *="S'- QR L*~- M c") AND NOT 
1120 IF L*=" " THEN 1080 
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PUNTOS 


INTOS 


N) " 


F'ER O ¡F'EN 3 
(-L*="N" -OR Lí=!'n") 


THEN-1080 












...SI TIENES UN 

AMSTRAD, 
ESTAS SON TUS 
REVISTAS 




SUSCRIBETE 

LLAMANDO A 
LOS 

TELEFONOS 


1986 - AMIGOS DEL AMSTRAD - 13 








LA ABEJA 




M. JESUS CABELLO MARTINEZ 


#1985# 
:CLS üSF'EED 


INK 


10 ' <<< LA ABEJA 

20 ' COPYRIGHT: 

Y 

F. ALONSO-PASTOR DEL COSO 
25 MODE O :BORDER 0:INK 0,0:INK 
■:PRINT"L A A B 
30 MODE IsBORDER 
D C:INK Z,C:NEXT 
1 :CLS :FOR Z = 1 TO 
O :GOSUB 9200 
40 IF INKEY$="" THEN 40 

50 CLS:IN$=CHRí(174) :J$=STRING$(39,32) :LOCATE 2,5:PRINT"DEFINICION 
DE JUEGO:":LOCATE 1,7:PRINT IN$;"PARA SUBIR LA ABEJ 
A?":GOSUB 9100 :S$=L$:LOCATE 1,7:PRINT J*:LOCATE 1,7:PRINT "PARA SUBIR 


LOCATE 3,12 


1,2,8:PAPER 0:PEN 1 
E J A":FOR T=1 TO 2000:NEXT 

O : SF’EED I NK 50,50 :SYMBOL AFTER O : RESTORE 9000 :FOR Z=0 TO 11 :REA 
INK 12,2,8 : INK 13 ,6,26 :PAPER 0:F‘EN 

22:READ Eí:LOCATE 1,Z:PRINT EÍ:SOUND 1,100,5:NEXT:SOUND 1,500,1 


DE LAS TECLAS 


: GOSUB 9100:B*=L$:LOCATE 


1 ;SÍ 

1 ,9 :F’RINT 


LA ABEJA?":GOSUB 9100:D*=L* 


60 LOCATE 1,9:PRINT IN*;"PARA BAJAR LA ABEJA?" 

J$:LOCATE 1,9:PRINT "PARA BAJAR " ;B$ 

70 LOCATE 1,11 SPRINT IN*;"PARA LLEVAR A LA DERECHA A 
:LOCATE 1,11:PRINT J*:LOCATE 1,11:PRINT "PARA LA DER 
ECHA ";D$ 

80 LOCATE 1 ,13 :PRINT IN$;"PARA LLEVAR A LA IZQUIERDA A LA ABEJA?" : GOSUB 9100:1'*= 
L$:LOCATE 1,13:PRINT Jí:LOCATE 1,13:PRINT "PARA LA I 
ZQUIERDA ";If 

85 LOCATE 1,15:PRINT IN$;"PARA ABANDONAR EL JUEGO?":GOSUB 


9100:AB*=L*:LOCATE 


1,1 


5 SPRINT J*:LOCATE 1,15:PRINT "PARA ABANDONAR EL JUEG 
O " ;AB$ 

87 LOCATE 1,18:PRINT IN$;"NIVEL DE JUEGO? (1 DIFICIL 
VAL(L$):IF VNJ<1 OR VNJ>5 THEN 87 ELSE LOCATE 1,18:P 
RINT J*:LOCATE 1,18:PRINT"NIVEL";VNJ 

90 LOCATE 1,23:PRINT"SI ESTAS DE ACUERDO CON ESTAS TECLAS 
CUALQUIER OTRA TECLA" 

100 L$=INKEYÍ:IF Lí="" THEN 100 ELSE IF L$<>"S" AND L*<>"s 
NJ=VNJ*1O:PT=0:NV=1:VD=5:KD*=STRINGí(4,46) 

MODE 0:SPEED INK 50,50:G0SUB 8200:FT=-1 
LL$=STRING$(20,LD$):PEN 2:L0CATE Í,2:PRINT LL* sLOCATE 
23:LOCATE 1,Z:PRINT LD*sLOCATE 20,Z:PRINT LD$:NE 


5 FACIL)" :GOSUB 9100:VNJ= 


PULSA S SINO PULSA 


10,5 

110 

120 

TO 

XT 

130 

140 

150 

160 

170 

180 


THEN 50 


24 SPRINT LLÍsFOR Z=3 


GOSUB 8000 :GQSUB 8300 

RANDOMIZE TIME:FOR Z=1 TO NV*10 STEP NV:0=INT(Z/10+1):IF 0>6 THEN 0=6 
X0=INT(RND*18+2) :YO=INT(RND*21+3) :IF TEST(X0*32-16,408-(YO*16))<>0 THEN 150 
LOCATE XO,YO:0N O GOSUB 9300,9310,9320,9330,9340,9350 
NEXTsPEN 2:FOR Z=1 TO INT(NV/5+1) :GOSUB 8100:NEXT:YA=4 

FOR X1=2 TO 19:IF TEST(X1*32-16,408-(YA*16))=0 AND TEST(XI*32-16,408-((YA+1) 
* 16))=0 AND TEST(XI*32-16,411—(YA*16))=0 AND TESTÍXI 
*32-16,4U-( (YA+1) *16) ) =0 THEN XA=XI:XI=20 
190 NEXT:IF XI=20 THEN YA=YA+1:GOTO 180 

200 SPEED INK 2,2:SX=1:SY=0:GOSUB 9550:F0R T=1000 TO 10 STEP -5:S0UND 1,T,1:S0UN 

D 2,T+10,1:NEXT 

205 IF SQ(1)<>4 THEN 205 

210 LÍ=INKEY*:IF LÍ=AB* THEN 10000 

215 FOR T=1 TO NJ:NEXT 
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220 IF LÍ=SÍ THEN SY=-1:SX=0 
230 IF LÍ=BÍ THEN SY=1:SX=0 
240 IF LÍ=DÍ THEN SX=1 :SY=0 
250 IF Lí=lí THEN SX=-1:SY=0 

255 T0=TEST(<XA+SX)#32-16,412-((YA+SY)*16)):T1=TEST((XA+SX)*32-16,412-<(YA+SY-1) 
*16)):IF T0=2 0R Tl=2 THEN 9600 

260 TO=TEST((XA+SX)*32-16,408-((YA+SY)#16)) :T1=TEST((XA+SX)*32-16,408-((YA+SY-1) 

* 16) ) : IF TOOO AND T0O4 OR TlOO AND Tl<>4 THEN SOS 
UB 7000:IF T0=T1 THEN GOSUB 7000 

270 SOUND 1,500,3:G0SUB 9500:XA=XA+SX:YA=YA+SY:SOUND 2,10,3:G0SUB 9550:IF FT<10 
THEN 210 

280 FOR T=1000 TO 10 STEP -10:S0UND 1,T*3,15:SOUND 2,T+100 ,2,12 :SOUND 3,T+500,1, 
10 :NEXT 

290 IF SQ(1)<>4 THEN 290 

300 NV=NV+1 :FOR Z = 1 TO 100 :LÍ=INKEYÍ:NEXT:GOTO 110 
7000 IF T0=5 OR TI=5 THEN PT=PT+10:GOSUB 8000 

7010 IF T0=3 OR TI=3 THEN PT=PT+20:GOSUB 8000 

7020 IF T0=6 OR Tl=6 THEN PT=PT+40íGOSUB 8000 

7030 IF T0=9 OR TI=9 THEN PT=PT+60:GOSUB 8000 

7040 IF T0=10 OR TI = 10 THEN PT=PT+50:GOSUB 8000 

7050 IF T0=U OR Tl = ll THEN F'T=PT+30: GOSUB 8000 
7060 RETURN 

8000 PEN 10 : LOCATE 4,1:F'RINT US ING" PUNTOS : ######" ;PT : SOUND 1 ,50,3 :FT=FT+1 : RETUR 
N 

8100 PEN 2:RANDOMIZE TIME :KD=RND:X1 = INT(RND*16)+3:XF=INT(RND*16)+3:Y I = INT(RND*19 
+4) :YF=INT(RND*19+4) 

8105 IF ABS(XF-XI)>12 OR ABS(YF-YI)>14 THEN 8100 ELSE IF KD>0.5 THEN 8140 
8110 IF ABS (XF-XI) <2 OR ABS(YF-YI)<2 OR TEST (XI *32-16,408- (YI * 16) )'< >0 THEN 8100 
8120 FOR K1 = XI TO XF STEP SGN(XF-XI) :IF TEST(K1*32-16,408-(YI* 16))=0 THEN LOCATE 
K1 , YI :PRIN.T LDÍ ELSE K1=99*SGN(XF-XI> 

8130 NEXT:RETURN 

8140 FOR K1 = Y I TO YF STEP SGN(YF-YI):IF TEST(XI*32-16,408-(Kl*16))=0 THEN LOCATE 
XI,K1SPRINT LDÍ ELSE K1=99*SGN(YF-YI) 

8150 NEXT:RETURN 

8200 PEN 10 : LOCATE 6,1 ; PRINT"FRUTAS:":FOR 0=1 TO 6 : X0=3:Y0=0*3+3:LOCATE XO,YO:ON 
O GOSUB 9300,9310,9320,9330,9340,9350: PEN 13 .-LOCATE 

5 , YO :PRINT KDíjUSING "## ptos . " ;0* 10 :NEXT :PEN 12:L0CATE 4 ,24 : F'R I NT " PARA CONTINU 
AR":LOCATE 4,25:PRINT"PULSA UNA TECLA" 

8210 IF INKEYÍ="" THEN 8210 ELSE CLS:RETURN 

8300 PEN 10 : LOCATE 6,25:PRINT USING"VIDAS :##" ;VD .-RETURN 

9000 DATA 0,24,6,3,15,19,12,21,9,16,8,7 

9010 DATA " LA A B E J A",,," Es un juego emocionante en el que lo", 

,mas importante es comerse muchos frutos.,,," Sin e 

mbargo, las paredes te impedirán",,hacerlo y tienes que procurar no chocar,,con 
ellas. 

9020 DATA ,,," Las teclas de movimiento de la abeja",,podras elegirlas tu mismo 
.,,," PULSA CUALQUIER TECLA PARA COMENZAR" 

9100 LÍ=INKEYÍ:IF Lí="" THEN 9100 ELSE RETURN 

9200 SYMBOL 176,8,28,46,111,95,95,46,28:SYMBOL 177,8,110,223,191,191,94,56,0:SYM 
BOL 178,6,6,14,30,60,56,28,12:SYMBOL 179,0,0,60,90,2 
19,219,90,60:SYMBOL 180,102,24,0,0,0,0,0,0 

9210 SYMBOL 181,24,36,66,129,129,66,36,24:SYMBOL 182,0,24,52,126,90,44,24,0:SYMB 
OL 183,0,108,190,191,191,95,126,56:SYMB0L 184,28,62, 

34 ,62,34 ,28 ,8 ,0:SYMBOL 185,0,0,0,65,34,28,42,54:SYMBOL 186 ,65 ,65,93,65,28,0,0,0: 
SYMBOL 187,127,127,127,0,247,247,247 ,0 

9220 TUÍ=CHRÍ<22)+CHRí(l) :TDÍ=CHRÍ(22)+CHRÍ(O) :A1Í=CHRÍ(184) :A2í=CHRí(185) :A3Í=C 
HRÍ(186) :LDÍ=CHRÍ(187) 

9230 DIM 0$(15):0í(1)=CHRí(176):0Í(2)=CHRÍ(177):0Í(3)=CHRÍ(178):0í(4)=CHRÍ(179): 
Oí<14)=CHRí(180):0í<5)=CHRí(181):0í(15)=CHRÍ(182):0í 
<6)=CHRÍ(183) 

9240 FOR Z=1 TO 10:NMÍ(Z)="AMSTRAD":PT(Z)=100:NEXT:RETURN 

9300 PEN 5 :PRINT Oí (O) :RETURN 

9310 PEN 3 :PRINT 0í(0):RETURÑ 

9320 PEN 11 :F'RINT 0Í(6):RETURN 

9330 PEN 6 :PRINT 0í(3):RETURN 

9340 PEN 8 :PRINT Oí(5) ;TUÍ :LOCATE XO,YO:PEN 10:PRINT Oí(15) ;TDÍ:RETURN 
9350 PEN 9:PRINT Oí (4) ;TUÍ:LOCATE XO,YO:F'EN 7:PRINT Oí (14) ;TDÍ :RETURN 
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9500 LOCATE XA , YA :F'RINT" " :LOCATE XA , YA-1 :PRINT" " tRETURN 

9550 PEN 4 rLOCATE XA,YA rPRINT Al$rPEN 1:LOCATE XA,YA-1:PRINT A2$rPEN 13:L0CATE X 
A , Y A : PRINT TU$ ;A3$;TD$:RETURN • 

9600 INK 2,2,8:PEN 2:L0CATE XA, YA rPRINT Al*rLOCATE XA,YA-1rPRINT A2ÍrLOCATE XA,Y 
ArPRINT TUÍ;A3Í;TD$ rFOR T=1 TO lOOtSOUND l,1000,ltS0 
UND 2,10,1rSOUND 3,3000,1rNEXT 
9610 IF SQ(1)<>4 THEN 9610 

9620 INK 2,6rVD=VD-l rGOSUB 8300rF0R T=1 TO 1000rL$=INKEY$rNEXTrIF VD>0 THEN 110 
ELSE 10000 

10000 IF PT<PT(10) THEN 10100 ELSE FOR Z=1 TO 10 rL$=INKEY$rNEXTtNM$=""rPEN 1 rQLS 

rLOCATE 4,4 rPRINT IN$;"TU NOMBRE?" rFOR Z*1 TO 10 

10010 L$=INKEY$rIF L$=CHRÍ<13) THEN Z=10rG0T0 10030 

10020 IF L$="" THEN 10010 ELSE NM$=NM$+L*rLOCATE 5+Z, 10rPRINT L$ 

10030 NEXT 

10040 pt(10)=pt:nmf<10)=nmt 

10050 FOR Z-l TO 10rFOR ZZ=1 TO 9rIF PT (ZZ) >=PT (ZZ+1) THEN 10070 

10060 K=PT (ZZ) rF'T < ZZ) =PT(ZZ+1) rPT (ZZ+1) =K rK$=NM$ <ZZ) rNM$ (ZZ) =NM$ (ZZ + 1) :NM$(ZZ+1) 

=K$ 

10070 NEXTrNEXT 

10100 CLS rLOCATE 4,1 rPRINT "PUNTUACIONES r " rFOR Z=1 TO 10.-PEN Z+l rLOCATE 1,Z*2+1rP 
RINT NM$(Z) rLOCATE 14, Z*2+lrPRINT USING"######";PT(Z 
) rNEXT 

10110 PEN 12rLOCATE 3 ,23rPRINT"O OTRA PARTIDA"rLOCATE 3,24rPRINT"P OTRO PROGRAMA 

II 

10120 L$=INKEYfrIF Lí="" THEN 10120 ELSE Lf=UPPER$<LÍ)rIF L$="0" THEN MODE 1rPEN 
1rGOTO 50 ELSE IF L$4>"P" THEN 10120 

10130 MODE lrBORDER 1tSYMBOL AFTER OrINK 0,1rINK l,24rPAPER OrPEN 1rCLSrPRINT"PR 
EPARADO PARA EL SIGUIENTE PROGRAMA"rRUN"" 



BIORRITMOS 


10 I n K q?iÍFQTñBir 1 ÍA?AA N en2 , T ! í N í 3 » 26 =PAPER O rPEN IrMODE 1 
12 X*=ÍNKE™IF «="'■ ?SeN = ¡2 éJ| ! CLS D X * !L °“ TE ‘- l!PRINT X*=NEXT I 

H=RlAÍ D X*,í l íu?=SÍ"NEXT 2 í’"* (U,!FaR T ° ‘ 2!REflD ‘ ^ > “X S NEX T I :FOR 1=0 TO 

100 SYMBOL AFTER 220 

102 SYMBOL 220,0,224,156,208,152,144,28,0 
104 SYMBOL 221,0,224,156,200,136,136,28,0 
*06 SYMBOL 222,0,224,156,200,136,232 *28!O 
108 SYMBOL 223,224,128,220,144,248,80,80,224 

H° M0DE 1 rINPUT"Fecha de nacimiento (xx-xx-xxxx) r •• ;n $ 

112 IF LEN(Ní)<>10 THEN 110 

114 BN=VAL(LEFT$(Nt ,2)) rMN=VAL<MID$(N$ ,4 ,2)) :AN=VAL(RIGHTí<N$.4)) 

116 INPUT"Fecha actual (xx-xx-xxxx): »-ai 

118 IF LEN(Aí)<>10 THEN 116 ’ 

da=VAL(LEFT$(at,2) ) rMa=VAL (MID$(a$,4,2)) rAa=VAMRIGHT$ <a$ ,4) ) 

"' NÍ!L °“ TE ^^nt-fecha actual 

X 0R Xí="s" E THEN F 130 = ELSE H 124 124 ELSE IF ** = " N " ° R X * = " n " TH£ N HO ELSE IF XS="S" 
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130 CLS:LOCATE 18,1:PRINT"MENU":LOCATE 2,6:PRINT"1:BIORRITMOS DEL MES" :LOCATE 2, 
8:PRINT"2:BIORRITMOS MES PROXIMO"sLOCATE 2,10:PRINT" 

ALCANCE"¡LOCATE 2,12sPRINT"4:CAMBIAR FECHAS":LOCATE 2,14:PRIN 


ELSE IF X$="l" THEN 500 
X*="4" THEN 110 ELSE 


ELSE IF X$="2" THEN 550 


2000 

pantal1 a 


en 


hasta 


3.-BI0RRITM0S LARGO 
T"5 ¡FINALIZAR" 

140 X*=INKEY*sIF X$="" THEN 140 
ELSE IF X$="3" THEN 200 ELSE IF 
IF X$="5" THEN 5000 ELSE 140 

X1=AN:X2=MN:X3=DN:Y1=AA:Y2=MA:Y3=1:GOSUB 1000:G0T0 
CLS:LOCATE 1,10:PRINT" Los gráficos .permanecerán 
pulses tecla" 

xí=INKEYf: IF :•;$="" THEN 415 ELSE RETURN 

GOSUB 400 : >: 1 =an : 2=mn s >: 3=dn : y 1 =aa s y2=ma : y 3= 1 : GOSUB 1000 : GOTO 
GOSUB 400 l=an s::2=mn :>;3=dn : y 3=l : IF ma=12 THEN yl=aa+ls y 2=l 
IF ma<. 12 THEN yl=aa sy2=ma+l 
GOSUB 1000:GOTQ 650 

CLS :RESTORE 10010 :FOR i = l TO 16:READ sLOCATE 35,i:PRINT :;í sNEXT i 
FOR i=l TO 19:LOCATE 3,i:PRINT CHR$<149)sNEXT i:ní=CHRS<154)+CHR$(154)+CHRÍ( 

3,20 SPRINT CHR$(147) 


650 


10 SPRINT 
10 15 


"O";CHR$(159)sLOCATE 1,19:P 


200 
400 
que 
415 
500 
550 

554 
600 
601 

154)+CHR$(154)+CHR*(159) s LOCATE 
;ní;nf;ní;nf;ní;MID$(ní,l,3) 

602 LOCATE 2,1 SPRINT "1";CHRÍ(159) sLOCATE 
RINT "-1" ;CHR$(159) :LOCATE 8,21sPRINT "5 
20 25"sLOCATE 2,22sPRINT M*<Y2-1) ;Y1 

604 IF Y2=2 AND Yl\4=Yl/4 THEN LOCATE 32,20sPRINT CHR$(154) 

606 IF M(Y2)>=30 THEN LOCATE 32,20sPRINT MID$(Nt,4,2) sLOCATE 33,21sPRINT "30" 
608 IF M(Y2)=31 THEN LOCATE 34,20sPRINT CHR$(154) 

610 RETURN 

650 GOSUB 600sND=M(Y2) sIF Y2=2 AND Y1/4=Y1\4 THEN ND=ND+1 
655 FOR I=DIAS TO DI AS+ND-1 :X=I-DIAS+4 : Y4=9.7-9*SIN (2*3.14159# i/23) 
(2*3.14159*1/28) s y 6=9 .7-9*SIN(2*3.14159*i/33) 

670 LOCATE >:,y4 sPRINT "F" sLOCATE X,Y5 sPRINT "E" sLOCATE X,Y6 sPRINT "I" 

672 IF INT(Y4)=INT < Y5) THEN LOCATE X,Y5sPRINT CHR$(220) 

THEN LOCATE X,Y6sPRINT CHR$(221) 

THEN LOCATE X,Y6sPRINT CHR$(222) 

AND INT(Y4)=INT(Y6) THEN LOCATE X,Y5sPRINT CHRÍ(223) 


: y5=9.7—9*SIN 


IF INT(Y4)=INT(Y6) 
IF INT(Y5)=INT(Y6) 
IF INT(Y4)=INT(Y5) 
NEXT I 

x$=INKEY$ :IF :■:$="" 


THEN 700 ELSE CLSsGOSUB 601 


- 1 , 1 ) 


sNEXT 


>:$="SUMA DE BIORRITMOS" sFOR 1=2 TO 19 sLOCATE 38,1 sPRINT MID$(X$,I- 

X=I-DIAS+4sY4=SIN(2*3.14159*1/23)s y 5=SIN(2*3.14159*i 


674 

675 
677 
679 
700 

705 LOCATE 2,1sPRINT"3"sLOCATE 1,19sPRINT"-3" 

708 
I 

710 FOR I=DIAS TO DIAS+ND-1 
/28) s y6=SIN(2*3.14159*i/33) 

712 PEN 2 sZ = INT((Y4+Y5+Y6+3)*3) sFOR J=19 
43) sNEXT JsNEXT IsPEN 1 

750 X$=INKEY$sIF X*=" " THEN 750 ELSE 130 
1000 DIAS=0 sIF Y1-X1 = 1 THEN 1025 ELSE IF 
FOR I=X1 + 1 TO Y1 — 1sDIAS=DIAS+365 
IF I/4=I\4 THEN DIAS=DIAS+1 
NEXT I 

IF X2=12 THEN 1055 
FOR I = X2+1 TO 12 sDIAS=DIAS+M(I) 

IF 1=2 AND X1/4=X1\4 THEN DIAS=DIAS+1 
NEXT I 

IF Y2=l THEN 1090 
FOR 1=1 TO Y2-1sDIAS=DIAS+l 
IF 1=2 AND Y 1/4=Y 1\4 THEN DIAS=DIAS+1 
NEXT I 

DIAS=DIAS+M(X2)-X3sIF X2=2 AND X1/4=X1\4 
DIAS=DIAS+Y3sRETURN 

FOR I=X2+1 TO Y2-1sDIAS=DIAS+M(I)sIF 1=2 
NEXT i 
GOTO 1090 

GOSUB 400 sCLS sPLOT 32,398,1sDRAW 32,170sDRAW 


1005 
1010 
1020 
1025 
1030 
1040 
1050 
1055 
1060 
1070 
1080 
1090 
1200 
1300 
1305 
1310 
2000 
40 

2002 

2005 

2006 
2010 


TO 19-Z STEP -1sLOCATE X,JsPRINT CHRí(1 


X1=Y1 THEN 1300 


THEN DIAS=DIAS+1 


AND X1/4=X1\4 THEN DIAS=DIAS+1 


639,170sPLOT 32,340sDRAW 639,3 


LOCATE 2,1sPRINT"! 


m=38 sj=ma-lsFOR 
m=m+2*m(j)sPLOT 


LOCATE 2,4sPRINT"0"sLOCATE 1 ,7sPRINT"-l" 
i=0 TO 9 sj=j + lsIF j = 13 THEN j = l 
m, 168 sPLOT m, 166 sLOCATE m\ 16-3 , 16 sPRINT jsNEXT 


PEN 2sLOCATE 1,18sPRINT "ROJOs ESTADO FISICO"sPEN 3sLOCATE 1,20sPRINT "BLAN 
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Cü: ESTADO EMOTIVO":LOCATE 1,24:PRINT "ABAJO: SUMA B 
IORRITMOS":PEN 1:LOCATE 1,22sFRINT"AMARILLO: ESTADO INTELECTUAL" 

2050 FOR I=DIAS TO DIAS+300:X=(I-DIAS)*2+34:Y4=SIN(2*3.14159*I/23>:Y5=SIN(2*3.14 
159*1/28):Y6=SIN<2*3.14159*1/33): Z=(Y4+Y5+Y6+3)* 16 

2060 PLOT X,340+(Y4*40) ,2:PL0T X,340+<Y5*40) ,3:PLOT X,340+<Y6*40) , 1 
2065 PLOT X,174,3:DRAW X,174+Z 
2070 NEXT I 

2100 xf=INKEYf :IF >;$="" THEN 2100 ELSE 130 
5000 CL5:RUN" 

10000 DATA 31,28,31,30,31,30,31,31,30,31,30,31 

10002 DATA "ENERO","FEBRERO","MARZO","ABRIL","MAYO","JUNIO","JULIO","AGOSTO","SE 
PTIEMBRE","OCTUBRE","NOVIEMBRE","DICIEMBRE" 

10010 DATA "I F E." , ," I E E","N S S" ,"T T T","E A A","L D D","I O 0"-,"G","E F E" , 
"N I M","C S 0","I I T","A C I"," O V"," O" 

10100 DATA " BIORRITMOS",," Con el presente programa podras calcu-", 

"lar los biorritmos, asi como su suma."," Primero'ha 

s de introducir la -fecha de","tu nacimiento (de la forma: 09-08-1964)" 

10101 DATA "y a continuación la fecha actual.",," La opcion 1 calcula los biorri 
tmos del", "mes, la 2 los del mes pro>:imo y la 3 los" 

, "de los pro;: irnos 10 meses.",,,,," PULSA TECLA PARA COMENZAR" 



CRASH 


11 :READ C:INK Z,C:NEXT 
H":SDUND 1 , Z*100,20:S0UND 2,2*2 

1 :M0DE 1 :RESTORE 9000:F0R Z = 1 TO 24 :READ ff:L0CATE 1,Z._:F'R 


10 ' <<< CRASH >>> 

20 ' 

30 SYMBOL AFTER 0:M0DE 0 :B0RDER 0:RESTORE 9100:F0R Z=0 TO 
: INK 12,6,26 :SF’EED INK 3,3: PAPER 0:F’EN 1 :CLS 
40 FOR Z = 1 TO 12 :F’EN Z :L0CATE 6,12:F'RINT"C RAS 
00,20 

50 IF SO (1)04 THEN 50 
60 NEXT:G0SUB 9500:PEN 
INT ff :NEXT:F'T=0:VD=5 
70 IF INKEYf="" THEN 70 

80 MODE 1:G0SUB 8500:L0CATE 39,23:PRINT ef :L0CATE 39,24:PRINT ef 
90 GOSUB 8900:GOSUB 8800:xx=2:yy=5:tp=22:AX=1:G0SUB 8510:' estancia 1 
100 ;-:s=2:ys=3:SSf="D" :G0SUB 5000:G0SUB 8700 
110 0B=1:GOSUB 1000 

120 CLS:GOSUB 8500:LOCATE 39,10:PRINT Ef:LOCATE 39,11 :F'RINT Ef:GOSUB 8900: 
8800:XX=10:YY=19:TP=1:AX=-1:GOSUB 8510 : XX=10:YY = 19:T 

P=16 :AX=1 :GOSUB 8510 :XX=38 : YY = 12 :TF'=23 :AX=-1 :GOSUB 8510 :XS=2 : YS=23 :SSf="D" 
5000:GOSUB 8700:0B=4:GOSUB 1000 

130 CLS : GOSUB 8500:LOCATE 39,10:PRINT Ef:LOCATE 39,11:PRINT Ef:GOSUB 8900: 
8800 : X X=2 : Y Y = 12 : TP=20 r : AX = 1 : GOSUB 8510 : XX=38 :TP=20 : Y Y 

= 12 :AX=-1 :GOSUB 8510 :XS=2 : YS=10 :SSf="D" :GOSUB 5000:GO'SUB 8700 :0B=7 :GOSUB 1 
140 CLS:GOSUB 8500:LOCATE 39,23:PRINT Ef:LOCATE 39,24:PRINT Ef:GOSUB 8900: 
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GOSUB 

: GOSUB 

GOSUB 

000 

GOSUB 






















8800 :XX=2 :YY = 12 :TF'=20 :AX = 1 :GOSUB 8510 :FOR Y=20 TD 24 

:LOCATE 5 , Y SPRINT STRINGí(29,172) :NEXT:XX=34:YY=20:TP=39:AX=1:GOSUB 8510 
150 XS=2 :YS=10:SSí=“D":GOSUB 5000:GOSUB 8700:0B=10:GOSUB 1000 

160 CLS :GOSUB 8500: LOCATE 39,23 :F'RI NT E$ .-LOCATE 39,24:F'RINT Eí: GOSUB B900:G0SUB 
8800:FOR XX=4 TO 37:IF RNEK0.5 THEN LOCATE XX,24:PRI 
NT LDí 

170 NEXT : XS=2:YS=23 :SS$="D" :GOBUB 5000:G0SUB 8700 :0B=13 :GOSUB 1000 

180 CLS :GOSUB 8500: LOCATE 39,22 :PRI NT "F" : LOCATE 39,23 :PRI NT "I": LOCATE 39,24:F'R 

INT"N":GOSUB 8900:G0SUB 8800:XX=20:YY=1O:TP=5:AX=~1: 

GOSUB 8510:XX=20: Y Y= 10:TP=35:AX=1:GOSUB 8510:XS=2:YS=23:SSí="D":GOSUB 5000:GOSUB 
8700: 0B=16 : FI = 1:GOSUB 1000 

999 GOTO 999 

1000 LÍ=INKEYÍ:IF LÍO"" THEN LÍ=UPPERÍ <LÍ) :GOSUB 7000:ELSE 1200 

1010 IF LÍ="Q" AND T2=l AND T1=0 AND ES=0 THEN GOSUB 5100:XS=XS-1:SSí="I":GOSUB 
5000:GOTO 1100 

1020 IF Lí="W" AND T4=l AND T3=0 AND ES=0 THEN GOSUB 5100 :XS=XS+1:SSí="D":GOSUB 
5000:GOTO 1100 

1030 IF LÍ="A" AND T2=0 AND T1=0 AND ES=0 THEN GOSUB 5100 : XS=XS-1 : YS=YS+1 : SSÍ=" I 
":GQSUB 5000 ELSE IF LÍ="A" AND Tl=l AND T5=0 AND ES 
-i;> THEN-BQSUB 5100:XS=XS-1 :YS=YS-1 :SSí="I" :GOSUB 5000 
1035 IF LÍ="A" THEN 1100 

1040 IF Lí="S" AND T4=0 AND T3=0 AND ES=0 THEN GOSUB 5100:XS=XS+1:YS=YS+1 :5Sí="D 
" :GOSUB 5000 ELSE IF LÍ="S" AND T3=l AND T6=0 AND ES 
=0 THEN GOSUB 5100 :XS=XS+1:YS=YS-1 :SSÍ="D":GOSUB 5000 
1045 IF Lí="S" THEN 1100 

1050 IF L$="0" AND ES--O THEN GOSUB 7200:PRINT CHRí (22) ;CHRí (1) :F'EN 
TO TES STEF’ -1 :LOCATE XS,Y:PRINT ESf:SOUND 1,1000,1: 

SOLJND 2,1500,1 :NEXT:PRINT CHRÍ (22) ;CHRÍ (O) :PEN 1 :ES=1 
1055 IF QES=1 THEN QES=0:ES=0 

1060 _ IF Lí“"P" AND YS>3 AND ES=1 THEN Ef=ESÍ: GOSUB 5100:EÍ=CHRÍ(32) 

B 5000 ELSE IF Lí="P" THEN GOSUB 5100:GOSUB 7300:GOS 
UB 5000:ES=0 

1100 K=0: FOR Z=1 TO 7:IF XS=XP(Z) AND (Y5=YP(Z) OR YS+1 = YF‘(Z>) THEN 
1110 NEXT : IF KOO THEN LOCATE XP(K),YP(K):PRINT E$:GOSUB 5000 :KP (K) 

=PT+100:GOSUB 8800 

1120 IF KOO-AND ES=1 THEN GOSUB 5100:GOSUB 7300:GOSUB 5000;ES=0 
1150 IF XS=39 THEN 3000 

1200 PEN 3 : IF X0=0 THEN X0=1 NT (RND¡C37+2) : Y0=4 :0=1 NT (RND (TIME) #3+0B) 

OR XO--XF' (2) OR X0=XF'(3) OR X0=XF'(4) OR X0=XP(5) OR X 
0=XP (6) OR XO--XF' (7) THEN X0=0:G0T0 1200 ELSE LOCATE XO,YD:PRINT 0$ ( 

1210 LOCATE XO , YO :F'RINT Eí : Y0= YO+2 : T=TEST ( XO* 16-8,400- ( Y0*16-12) ) : I 
>XS OR YO>24 THEN X0=0:G0T0 1000 

1220 LOCATE XO,YO:F'RINT 0$(0):IF XO=XS AND (YO=YS OR Y0=YS+1) THEN 
1230 PEN 1 :GOTO 1000 

2000 FOR Z=500 TO 1000 STEP 10:S0UND 1,Z,2:S0UND 2 , Z +100,2 : NEXT 
2005 IF SQ(1)<>4 THEN 2005 
2010 SOUND 1,1000,5 
2015 VD=VD-1:1F VD<1 THEN 2100 

2020 LOCATE 26,1:F'RINT STRINGÍ (13,32) : GOSUB 8900: GOSUB 5000 :X0=0 :G0 
2100 LOCATE 7,12:PRINT"SE TE TERMINARON LAS VIDAS":FOR Z=1 TO 3000: 

2110 CLS:PEN 1:LOCATE 3,5 :PRINT"HAS OBTENIDO";PT;"PUNTOS":LOCATE 3, 

OTRA PARTIDA PULSA LA TECLA P" :LOCATE 3,12 :F'RINT"F'A 
RA OTRO PROGRAMA PULSA LA TECLA F" 

2120 L$=INKEYí : IF L$="" THEN 2120 ELSE LÍ=UF'F'ERÍ (Lí) : IF Lf="P" THEN 
LÍ="F" THEN 10000 
2130 GOTO 2110 

3000 X0=0 : INK 1,26,Ó:F0R Z=300 TO 10 STEP -10:S0UND 1,Z,2:S0UND 2,Z+lO,2:NEXT:IN 
K 1,26:PEN 3 

3010 IF SQ(1)<>4 THEN 301O 
3015 IF FIOO THEN 3500 

3020 LOCATE 1 ,25 :F'RINT"PASAMOS A LA SIGUIENTE ESTANCIA (S/N) " 

3030 LÍ=INKEYÍ:IF L$="" THEN 3030 ELSE L$=UPF'ERÍ (Lí) : IF LÍ="N" THEN LOCATE 1,25; 
PEN 1 :F’RINT STRINGf-(39,172) :GOTO 1000 
3040 IF LÍ="S" THEN RETURN 
3050 GOTO 3030 

3500 LOCATE 12,25:PRINT"FIN DE LA AVENTURA":FOR T=1 TO 3000:NEXT:GOTO 2110 
5000 LOCATE ::s, y s:IF ssí="D" THEN F'RINT SD1Í ELSE F'RINT SI lí 


2 :FOR Y = YS-1 

:YS=YS-1:GOSU 

! K=Z : Z=9 
=0 : YF' (K) =0 :PT 

: IF XO=XF' (1) 
O) 

F T=1 AND X0< 
2000 

TO 1000 
NEXT 

10 : F'RINT "PARA 

RUN ELSE IF 
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5010 LOCATE XS,YS+1:IF SSÍ="D"-. THEN PRINT SD2Í ELSE PRINT SI2Í 
5020 RETURN 

5100 PEN 2 «LOCATE xs,ys«PRINT E$«LOCATE XS, YS+1 : PRINT E$:SOUND 1,100,1«PEN 1 :RET 
URN 

7000 TX=XS-1:TY=YS+1«GOSUB 7100:T1=T:TY=YS+2«GOSUB 7100 :T2=T :TX = XS+1:GOSUB 7100: 

T4=T :TY = YS+1:GOSUB 7100:T3=T:TY=YS«GOSUB 7100:T6=T:T 

X = XS-1:G0SUB 7100 :T5=T:RETURN 

7100 T=TEST(TX#16-8,400-(TY#16-12)):RETURN 

7200 K=0 :FOR Z = 1 TO 7:IF XS=XF'(Z) THEN K=Z:Z=9 

7210 NEXT:IF Z=8 THEN TES=3 ELSE TES=YP(K)+1 

7230 IF YS-YP (K) =1 THEN LOCATE XF' (K) , YP (K) :PRINT E*: XP <K) =0: YP (K) =0 :QES=1 :F'T=PT+ 
100«GOSUB 8800 
7240 RETURN 

7300 FOR Y =3 TO 25:IF TEST(XS*16-8,400-(Y*16-12))=1 THEN J=Y:Y=99 
7310 NEXT:YS=J-2:RETURN 

8500 PEN 1 :LOCATE 1,2:PRINT STRINGt- (39, 172) : LOCATE 1,25:F'RINT STRINGi (39, 172) :F0 
R y=2 TO 25 :LOCATE 1, y «PRINT ldi«LOCATE 39,y:F'RINT 1 
dí :NEXT rRETURN 

8510 FOR y = yy TO 24:L0CATE xx,y«PRINT ldi :NEXT: yy = yy + l :xx=xx+AX : IF xxOtp THEN 8 
510 ELSE RETURN 
8700 FOR Z=1 TO 7 

8710 XP=INT(RND#37+2.5) : YF-INT <RND#21+3.5) :IF TEST (XP* 16-8 ,400- ((YF'+l )# 16-12) ) O 
O THEN 8710 


8715 FOR Y=1 TO Z:IF XP=XP(Y) THEN Y=99 
8717 NEXT:IF Y=100 THEN 8710 

8720 PEN 2 :LOCATE XP,YP:PRINT PR$ : XP (Z) =XF': YP (Z) =YP :NEXT sPEN 1 : RETURN 

8800 PEN 3 :SOUND 1 ,10,10,15 :SOUND 2,100,10«LOCATE 10,1 «PRINT USING"####" ;pt «F'EN 

1rRETURN 

8900 PEN 3«LOCATE 3,1:PRINT"PUNTOS:"«LOCATE 20,1«PRINT"VIDAS:“«FOR Z=1 TO UD:LOC 
ATE 26+Z*2,l«PRINT SIlt«NEXT«PEN 1«RETURN 

9uo<_) DATA " C R A S H",," Es un juego en el que hay que tener" ,ne 

rvios de acero para sobrevivir.,," El juego esta di 

vidido en 6 estancias",en las que debes recoger las perlas.," Como obstáculos t 
endras todo tipo de" 

9010 DATA objetos que caeran a gran velocidad,desde cualquier punto.," El movim 
iento en horizontal se real iza",con las teclas Q (a 

la izquierda) y W,(a la derecha) ; subir o bajar escalones,con las teclas A (a la 
izquierda) y S,(a la derecha). 

9020 DATA" Para subir a por las perlas debes",tender una escalera con la tecla 
0 y,subir por ella con la tecla P.,," El juego term 

ina si recorres todas las" ,estañeias o acabas con tus cinco vidas.," QUE'TE 

NGAS MUCHA SUERTE! ! !" , 

9030 DATA " PULSA CUALQUIER TECLA PARA COMENZAR" 

9100 DATA 0,26,24,6,8,18,2,20,13,15,12,7 

9500 SYMBOL 130,112,176,112,32,120,204,204,204«SYMBOL 131,220.120,48,48,48,48,11 
2,240 «SYMBOL 132,112,104,112,32,112,200,204,204 «SYMB 

OL 133,236,120,48,48,48,48,56,60 «SI 1$=CHR*( 130) :SI2Í=CHR$ (131) ;SDÜ=CHRÍ (132) «SD 
2$=CHR$(133) • 

9'-'10 SYMBOL 150 ,90,205,40,16,126,126 ,60,24 «SYMBOL 151,149,149,86,100,126,126 60 
24«SYMBOL 152,36,90,36,36,126,126,60,24«SYMBOL 153,1 ’ ’ ’ ’ ’ 

n 8 A 1 AQ , !^í , ^’S 4,126 ’ 70,34:SY|V,B0L 154 i° i° ,0,58,127,127,168,112 «SYMBOL 155,0,0, 



I 53 ^ S y^°LÍ 6 ?A? ’? ’ 0 ’° ’° ’ 3 ’ 252 ’ 112 = SYMB0L 1 63 ,0 ,0 ,o ,0,248,248,255,248 «SYMBOL 16 
4,^4,127,127,126,60,60,126,126 «SYMBOL 165,16,40,168 

,254,239., 4 °, 4 0,i6 «SYMBOL 166,31 ,4,14,153,250,188,37,126 «SYMBOL 167,60,126,126,12 
6,36,36,24,24 

9540 SYMBOL 170,147,84,165,40,139,100,33,149 :EXÍ=CHR$ (170) «DIM 0$(18):F0R Z=1 TO 
18 : Ot( Z )=CHRÍ(1 49+Z ) :NEXT 

9550 SYMBOL 171,255,195,129,129,255,195,129,129«SYMBOL 172,127,127,127,0,247,247 
,247,0«SYMBOL 173,66,36,24,231,24,36,66,0:es*=CHR*(1 
71):ldi-CHRi<172):prÍ=CHRÍ(173):eÍ=CHRÍ(32) «RETURN 

*? RDER lsINK 0 » 1 : FAF'ER 0 «PEN 1 «CLS «PRINT"PREPARADO PARA EL SIGUIENTE PROGR 
AMA":RUN"" 
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CIRCUITOS ELECTRICOS 


10 ' << CIRCUITOS ELECTRICOS » 

20 ' COPYRIGHT M.J.C. ?< F.A.P. 1985. 

30 BORDER 1 : MODE O:INK 0,1:1NK 1,26,6: SPEED INK 5,5:1NK 2,24:1NK 3,6:PAPER O:PEN 
1:CLS:LOCATE 6,8:PRINT"CIRCUITOS":LOCATE 5,14:PRINT 
"ELECTRICOS" :FOR T=1 TO 2000:NEXT:INK 1,26:MODE 1 
40 GOSUB 9i00:RESTORE 9000:POR Z 
,2:NEXt:S0UND 1,200,5:GOSUB 9110 
50 


=1 TO 25:READ E*:LOCATE 1,Z:PRINT E*:SOUND 1,100 


50 


,18:IIMK 6,2:1 NK 7,20 :INK 8,13:INK 9,15:INK 10,12:INK 11,7 


IF INKEY$="" THEN 
60 MODE O:INK 4,8:INK 
sPEN 1:CLS 
65 DIM A(24 ,2) ,C(25) ,E(25) 

70 LOCATE 2,1:PRINT"CIRCUITO ELECTRICO" 

SO PEN 2:FOR Y=3 TO 18 STEP 5:F0R X=2 TO 17:L0CATE X,Y:PRINT CH$:NEXT :NEXT 
90 FOR X=2 TO 17 STEP 15:F0R Y=3 TO 18:L0CATE X,Y:PRINT CVÍ:NEXT:NEXT 
100 PEN 9:CC=65:FOR Y=3 TO 18 STEP 5:F0R - — -- - 

CC):CC=CC+1:NEXT:NEXT 
110 p1$="N":sl$="0":p1=78 :sl=79 

180 GOSUB 9200:GOSUB 2000:IF K=100 THEN 150 ELSE E(S) 

190 LOCATE 1,24:1NPUT"CUANTAS BOMBILLAS";NB 
200 GOSUB 9200:IF NBCO OR NB>12 


X=2 TO 17 STEP 5:LOCATE X,Y:PRINT CHRí( 


í: NF‘=S : GOSUB 3000 


OR NBOINT(NB) THEN 190 


OR 

OR 


210 GOSUB 9200 
220 FOR Z=1 TO NB 

230 LOCATE 1,24:1NPUT"DESDE LETRA " ;PL$ :PL$=UPFER$(PL$) :PL=ASC(PL$) :IF PL<6ü 
PL>80 OR LEN(PLf)>l THEN GOSUB 9200:GOTO 230 

240 LOCATE 1,25:INPUT"HASTA LETRA ";SL$:SL$=UPPER$(SLt) :SL=ASC(SL$) :IF SLÍ6S 
SL>80 OR LEN(SLf)>1 OR PL>SL THEN GOSUB 9200:G0T0 23 
O 

250 GOSUB 9200:GOSUB 2000 :IF K=100 THEN 230 ELSE E(S)=1:G0SUB 3100;NEXT 

260 LOCATE 1,24:INPUT"CUANTOS TIMBRES";NT 

270 GOSUB 9200 :IF NTCO OR NT>12 OR NTOINT (NT) THEN 260 

280 GOSUB 9200 

290 FOR Z=1 TO NT 

300 LOCATE 1,24:1NPUT"DESDE LETRA ";PL$:PL*=UPPER$<PL$) :PL=ASC(PLÍ) :IF PL<65 OR 
PL>80 OR LEN(PLT)>1 THEN GOSUB 9200:GOTO 300 

310 LOCATE 1,25:INPUT"HASTA LETRA " ;SLÍ:SLÍ=UPPERÍ(SLí) :SL=ASC(SLÍ) :IF SL<65 OR 
SL >80 OR LEN (SLf) >1 OR F'L>SL THEN GOSUB 9200: GOTO 30 
O 

320 GOSUB 9200:GOSUB 


000:IF K=100 THEN 300 ELSE E(S)= 
330 LOCATE 1,24:PRINT"CUANTOS":INPUT"INTERRUPTORES";NI 
340 GOSUB 9200:IF NI<0 OR NI>12 OR NI OINT(NI) THEN 330 
350 GOSUB 9200 
360 FOR Z=1 TO NI 


2:GOSUB 3200:NEXT 


370 LOCA" 

FE 1,24 : 

INPUT"DESDE LETRA ";PL$: 

¡PL$=UPPER$ (F'LÍ) 

:PL=ASC(PLÍ):IF 

PLC65 OR 
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F'L >80 0R LEN (F'Lí) >1 THEN GOSÜB 9200: GOTO 370 

380 LOCATE 1 ,25 : INF'UT"HASTA LETRA " ;SLÍ :SLÍ=UF'F’ER* (SLt) :SL=ASC <SL$) : IF SL<65 OR 
SL>80 OR LEN (BLÍ) >1 OR F'L>SL THEN GOSUB 9200:G0T0 37 
O 

390 GOSUB 9200:GOSUB 2000:IF K=100 THEN 370 ELSE E(S)=3:G0SUB 3300 

400 NEXT :F'EN 2:RESTORE 9400 :FOR Y=3 TO 18 STEP 5:F0R X=2 TO 17 STEF' 5 :READ A:LOC 

ATE X , Y :F'RINT CHR*(A) :NEXT :NEXT 

410 GOSUB 2500 

420 LÍ=INKEYÍ:IF L*="" THEN 420 

430 L*=UF'F‘ERí(L*).: SOUND 1,10,3 

440 IF L*="A" THEN 10000 

450 IF L$="O" THEN ERASE A,C,E:GOTO 60 

460 IF LÍ="F" THEN 4000 

470 IF L$="I" THEN 5000 

480 GOTO 420 

2000 IF F'L<69 THEN R=64:YY=2 ELSE IF F'L<73 THEN R=68:YY=7 ELSE IF F'L<77 THEN R=7 
2:YY=12 ELSE R=76:YY=17 

2010 XX= (F'L-R) #5-1 : IF ABS (PL-SL) OI THEN XX=XX-2:YY = YY+3 

2020 S=(XX+1)/5:1F YY=2 THEN S=S ELSE IF YY=7 THEN S=S+3 ELSE IF YY=12 THEN S=S+ 
6 ELSE IF Y Y = 17 THEN S=S+9 ELSE 20^0 
2030 GOTO 2045 

2040 S=(XX+3)/5+12:IF YY = 10 THEN S=S+4 ELSE IF YY=15 THEN S=S+8 

2045 IF S—14 OR S=15 OR S=18 OR S=19 OR S=22 OR S=23 THEN K=100:GOTO 2070 

2050 K=0 :1F A(S,1)<>0 AND A(S,2)<>0 THEN K=100 

2060 IF K=100 THEN 2070 ELSE A<S , 1)= XX:A (S ,2)= YY 

2070 RETURN 

2500 F'EN 2 :LOCATE 1 ,21 :F'RINT"F PONER EN MARCHA" :LOCATE 1 ,22 :F’RINT" I ABRIR’/CERRAR 
" : LOCATE 3 ,23 : F'R I NT " I NTERR'UF'TORES" : LOCATE 1 ,24 : F'R I NT 
"O OTRO CIRCUITO" :LOCATE 1,25:F'RINT"A ABANDONAR" :RETURN 
2510 FOR Z-20 TO 25;L0CATE 1,Z:F'RINT STRINGÍ (19,32) :NEXT : RETURN 

3000 SOUND 1,100,5 :PEN 6:L0CATE A (S , 1) , A < S , 2) +1 : F'R I NT F'1Í:L0CATE A (S , 1) ,A (S ,2)+2 
:F'RINT F'2í:REN 1 :RETURN 

3045 IF S=14 OR S=15 OR S=18 OR S=19 OR S=22 OR S=23 THEN 2070 

3100 F'EN 8 :LOCATE A (S , 1) ,A (S ,2) :F’RINT BA*:F'EN U:LOCATE A <S , 1) ,A (S ,2) +1 :F'RINT Bf 
:F'EN 1: RETURN 

3150 F'EN 1 :LOCATE A (S , 1) , A (S ,2) :F'RINT BEÍ :F'EN 11:L0CATE A (S , 1) ,A (S ,2) +1 :F'RINT Bí 
:F'EN 1 : RETURN 

3200 F'EN 4 :LQCATE A (S , 1) ,A (S ,2) :F'RINT TAS :F'EN 5:L0CATE A (S , 1) ,A <S ,2) +1 :F'RINT T$ : 
F'EN 1: RETURN 

3250 F’EN 7 :SOUND 1,10,1 :LOCATE A (S , 1) , A (S ,2) :F'RINT TEí :F’EN 5:S0UND 1,10,1 :LOCATE 
A (S , 1) ,A(S,2)+1: F'R I NT Tf:F'EN 1 :RETURN 

3300 F'EN 3 :LOCATE A (S , 1) ,A (S ,2)+1 : IF S<13 THEN F'RINT IHf :LOCATE A (S , 1)-1 ,A (S ,2) : 
PRINT S ELSE F'RINT l'V*:LOCATE A (S , 1) +1 ,A <S ,2) +1 :F'RIN 
T RIGHTÍ(STRÍ(S) ,ABS(S>9)+1) 

3310 F'EN 1 : RETURN 

3350 F'EN 3 :LOCATE A (S , 1) , A (S ,2)+1 : IF S<13 THEN F'RINT CH$ ELSE F'RINT CV* 

3360 F'EN 1: RETURN 

4000 GOSUB 2510:LOCATE 1 ,24 :F'RINT"F'ULSA N PARA PARAR" ;LOCATE 5 ,25 :F'RINT"EL CIRCU 
ITO" 

4005 IF E <21)-3 OR E<10)=3 OR E(12)=3 OR E<24)=3 THEN RESTORE 9700:FOR Z = 1 TO 18 
:READ X :C<X)=0:NEXT:GOTO 4070 

4010 IF E(17)=3 OR E<20)=3 THEN RESTORE 9710:F0R Z = 1 TO 10 : READ X :C(X)=0 :NEXT:G0 
TO 4030 

4015 IF E(13)=3 OR E(1>=3 OR E(2)=3 OR E<3)=3 OR E<16)=3 THEN T=0 ELSE T=1 

4017 RESTORE 9720:F0R Z = 1 TO 5 :READ X :C(X)=T:NEXT 

4020 IF E (4) =3 OR E<5)=3 OR E(6)=^3 THEN 7=0 ELSE T=1 

4022 FOR Z=4 TO 6 :C(Z)=T:NEXT 

4025 IF C<1)=0 AND C(4)=0 THEN T=0 ELSE T=1 

4027 C(17)=T:C(20)=T 

4030 IF E(7)=3 OR E<8)=3 OR E<9)=3 THEN T=0 ELSE T=1 

4033 FOR Z=7 TO 9:C<Z)=T:NEXT 

4040 IF C(17)=1 OR C(7)=l THEN T=1 ELSE T=0 

4050 RESTORE 9730:FOR Z=1 TO 4:READ X:C < X)=T:NEXT 

4070 L.:Í=INKEYÍ :IF LÍ="N" OR Lí="n" THEN 4200 

4080 RESTORE 9700:FOR Z=1 TO ’l 8: READ S 



4090 IF C(S)=0 THEN 4130 
4100 IF E (S)=1 THEN GOSUB 3150 

4120 IF E(S)=2 THEN GOSUB 3250:S0UND 1 ,100,5,15:GOSUB 3200 
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4130 NEXT 
4140 GOTO 4070 

4200 RESTORE 9700:FOR Z=1 TO 1B:READ S:C(S)=0:IF E(S)=1 THEN GOSUB 3100 ELSE IF 
E(S>”2 THEN GOSUB 3200 

4210 NEXT:GOSUB 2510:GOSUB 2500:GOTO 420 

5000 F'EN 2 :GOSUB 2510:L0CATE 1,24:INPUÍ"QUE INTERRUPTOR" ; IN : IF IN<0 OR IN>24 OR 
INOI NT (IN) THEN GOSUB 2500: GOTO 420 

5010 S=IN:IF E(S)=3 THEN GOSUB 3350:E(S>=4 ELSE IF E(S)=4 THEN GOSUB 3300:E(S>=3 
5020 GOSUB 9200:GOSUB 2500:GOTO 420 

9000 DATA " CIRCUITOS ELECTRICOS EN SERIE",,,," Con este programa podras di 

se®ar,a tu","gusto, circuitos eléctricos en los que" 

,se combinan distintos componentes como,"son: PILAS, BOMBILLAS, TIMBRES E" , INTER 
RUPTORES. 

9010 DATA ,," Todos estos componentes podran ir",colocados en una parrilla con 
24 posi-,ciones distintas.,," El objetivo del progr 

ama es que por",medio del juego se puedan aprender las,bases del funcionamiento 
de la electri-,cidad . 

9020 DATA ,," Si quieres abandonar el programa a",medias pulsa la tecla A,,," 
PULSA UNA TECLA PARA CONTINUAR" 

9100 SYMBOL AFTER 32:SYMB0L 64,118 ,216 ,0,216,102,102,102 ,0 :RETIJRN 

9110 SYMBOL 190,7,24,35,36,34,17,9,9:SYMBOL 191,224,24,196,36,60,136,144,144 :SYM 

BOL 192,31,15,7,15,3,7,1,1:SYMB0L 193,248,240,224,24 

0,192,224,128,128:SYMBOL 194,7,31,63,63,63,31,15,15;SYMBOL 195,224,184,220,220,2 
20,184,240 ,240 

9120 SYMBOL 196,7,7,7,7,7,7,15,15:SYMB0L 197,224,224,224,224 ,224,224,240,240:SYM 
BOL 198,3,12,17,33,32,17,14,7:SYMBOL 199,240,56,204, 

198,134,12,56,240:SYMBOL 200,35,76,147,162,160,145,78,39:SYMBOL 201,244,58,173,2 
30,134,13,58,244 

9130 SYMBOL 202,12,28 ,48 ,227,195,0,0,0:SYMB0L 203,24,24,192,192,96,48,24,24:SYMB 
OL 204 ,0,0,0,232,208,32,127,125:SYMBOL 205,121,125,1 

25,127,125,126,127,127:SYMBOL 206,0,64,32,23,11,4,254,62:SYMBOL 207,222,190,30,2 
54,222,190,126,254 

9140 BÍ^CHRÍ(192)+CHR$(193) :BA$=CHR*(190)+CHRÍ(191) :BEf—CHRÍ(194)+CHRÍ(j95) :T*=C 
HR$ (196) +CHRÍ (197) :TA$=CHR$ (198) +CHRÍ (199) :TE3>=CHR$ ( 

200)+CHR$(201) :IH$=CHR$(202) :IVÍ=CHR$(203) :Plí=CHRf(204)+CHR*(206) : P2$=CHR$(205 
)+CHRÍ(207):Ef=CHR*(32):EE*=EÍ+E$ 

9150 CVÍ=CHRÍ(149) :CHí=CHRt(154) :VD*=CHR$(151) : Vlf-CHRí(157) :HBÍ=CHR$(158) :HS$=C 
HR$<155> :CR*=CHR*(159) :SD*=CHR$(150) :SI*=CHR$(156) :B 
I*=CHR$ (153) :BDÍ=CHRt- (147) :RETURN 


9200 

LOCATE 1,24:PRINT 

9400 

DATA 

150,154,154, 

9700 

DATA 

1,2,3,4,5,6, 

9710 

DATA 

17,13,1 ,2,3,. 

9720 

DATA 

13,1,2,3,16 

9730 

DATA 

21,10,12,24 


10000 MODE 1:PEN 1:CLS:SYMB0L AFTER 31:PRINT"PREPARADO PARA EL SIGUIENTE PROGRAM 
A":RUN"" 
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4 INK 0,1:1NK 1,24:1NK 2,6:1NK 3,26:1NK 6,18,6: PEN 1:PAPER 0 : BORDER 1:CLB 

5 ENO 1,10,4,3,8,-4,3,3,-1,10,6,5,2,4,-5,3 

10 MODE 1 : RESTORE 10100:F0R 1 = 1 TO 17 :READ X4:LQCATE 1,I:PRINT X4:NEXT I 
12 X4=INKEY4: IF X4="" THEN 12 

20 MODE O:SYMBOL 250,255,255,240,248 ,220,206,199,195:SYMBOL 251,255,255,15,31,59 
,115,227,195:SYMBOL 252,195,199,206,220,248,240,255, 

255 :SYMBOL 253,195,227,115,59,31,15,255,255 

22 WINDOW #1,1,10,2,1B:WIND0W #2,1,20,20,24:PAPER #1,0:WIND0W #3,13,20,14,19:PEN 
#1,1: PAPER #2,3: PEN #2,2 :CLS#1:PAPER #3,0 
100 CLS: INF'UT "Cual es tu nombre ";ní 

102 IF LEN(n4>>9 THEN 100 ELSE CLS 

103 PEN 2: LOCATE 12,4:PRINT N4 :LOCATE 12,6:PRINT O: LOCATE 12 ,8:PRINT"AMSTRAD“:LO 
CATE 12,10:PRINT O 

104 su-0 :x=RND : IF >: <O .5 THEN am=0:G0T0 3000 
106 am=l : GOTO 2000 

200 SOUND 1 ,956,30,7,,,1:SOUND 1,38,40,6:IF cs=l THEN RESTORE 8000 
202 IF cs=2 THEN RESTORE 8002 
204 IF cs=3 THEN RESTORE 8004 


206 

IF 

cs=4 

THEN 

RESTORE 

8006 

208 

IF 

cs-5 

THEN 

RESTORE 

8008 

210 

IF 

cs=6 

THEN 

RESTORE 

8010 


211 FOR i=0 TO 5 :READ >:4 :d4 ( i ) =>:4 :NEXT i 

212 LOCATE #1,2,2:PRINT #1 , "SUMA : "¡su :LOCATE #1,2,4:PRINT #1,CHR4(250);:FOR i = l 
TO 7:PRINT #1,CHR4(208) ; :NEXT i:PRINT #1,CHR4(251) 

214 LOCATE #1,2,5:PRINT #1 ,CHR4(211) ;CHR4(205) ;" ";dt(0); N ";CHR4(204);CHR4<20 

9) 

216 LOCATE #1,2,6:F'RINT #1 ,CHR4 (211) ; " ";CHR4(205) ; " " ;CHR4 (204) ; " ";CHR4(209) 

218 LOCATE #1,2,7:PRJNT #1,CHR4(211) ;" ";CHR4(135) ;CHR4(131) ;CHR4(139) ; " ";CHR 

4(209) 

220 LOCATE #1,2,8:PRINT #1,CHR4(211) ;d4(1) ; " ";CHR4(133) ;d4(2) ;CHR4(138) ; " " ;d4< 
3) ■ CHR-£(2^9) 

222 LOCATE #1,2,9:F'RINT #1 ,CHR4 <211) ; " " ;CHR4 (141) ;CHR4 (140) ;CHR4 < 142) ;" " ;CHR 

4(209) 

224 LOCATE #1,2,10:PRINT #1,CHR4(211) ; " ";CHR4(204) ;" 


";CHR4(205);" ";CHR4(209 


226 LOCATE #1 

,2,11:PRINT #1,CHR4(211);CHR4(204);" " 

;d4(4) 

";CHR4 

(205) ;CHR4 (2 

09) 

228 LOCATE #1 

,2,12 :PRINT #1 ,CHR4(252) ; :FOR i = 

= 1 TO 7:1 

PRINT #1 

,CHR4(21 

0);:NEXT 

' i :P 
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RINT #1,CHR$ <253) 

230 LOCATE- #1 ,5,15 :PRINT #1 ,CHR$ ( 150) ;CHR* ( 154) ;CHR$ ( 156) 

232 LOCATE #1 ,5,16:PRINT #1 ,CHR$(149) ;d$(5) ;CHR¿(149) 

234 LOCATE #1 ,5,17 rPRINT #1 ,CHRÍ(147) ;CHRÍ(154) ;CHR$( 153) 

236 RETURN 

300 CLS#2:L0CATE #2,4 ,3 :PRIIMT#2 , "COJO LA CARA : " ;CE :FOR 1 = 1 TO 3000rNEXT I :RETURN 
400 IF su<21 THEN GOTO 3000 

410 IF su=21 THEN ga=ga+l rLOCATE 12,10:PRINT ga r ;•:$=" PERDISTE" :GOTO 550 
420 IF SU >21 THEN gu=gu+l : LOCATE 12,6rPRINT gu r :•:*=" GANASTE":GOTO 550 
500 IF su<21 THEN GOTO 2000 

510 IF su >21 THEN ga=ga+l rLOCATE 12,10:PRINT ga :!¡í=" PERDIS TE" : GOTO 550 

520 IF SU=21 THEN gu=gu+l rLOCATE 12,6rPRINT gu r:•:$=" GANASTE " : GOTO 550 

550 PEN #3 ,6 rFOR 1 = 1 TO 6rLOCATE #3,1,1rPRINT#3,X$ rNEXT I r RESTORE 10000rFOR 1 = 1 

TO 16 rREAD JrSOUND 1,J,25,7,1,,1rNEXT IrFOR 1 = 1 TO 1 

500rNEXT 

560 PEN #3 ,3:CLS #3rLOCATE #3,l,2rPRINT #3,"1rOTRA" rLOCATE #3,l,5rPRINT #3,"2rFI 

N" 

562 Df=INKEYT rIF D$="l" THEN 570 ELSE IF D$="2" THEN 5000 ELSE 562 
570 CLS #3 rSU=0rIF AM=1 THEN AM=0 rGOTO 2999 
572 IF AM=0 THEN AM=1rGOTO 2000 

600 CLS #2: 1F CS=1 OR CS=6 THEN X$="2 3 4 5" ELSE IF CS=2 OR CS=5 THEN X$="l 

3 4 6" ELSE X$="l 2 5 6" 

602 L0CATE#2,4,2 rPRINT#2,"QUE CARA COJES"rL0CATE#2,6 ,4:PRINT#2 ,X$ 

610 D*=INKEY*:IF D$="" THEN 610 ELSE IF DÍOMID* (X$ , 1 ,1 ) AND D$OMID*<X$ ,4,1) AN 
D DÍOMIDÍ (Xt ,7,1) AND DTOMIDT (XT ,10,1) THEN 610 
612 ce=VAL(dí) rRETURN 

1000 IF cs=l OR cs=6 THEN ce=2 ELSE ce=l 
1004 RETURN 

1010 IF cs=2 OR cs=5 THEN ce=l ELSE ce=?2 
10.14 RETURN 

1020 IF cs=3 OR cs=4 THEN ce=l ELSE ce=3 
1024 RETURN 

1030 IF C5=3 OR cs=4 THEN ce=2 ELSE ce=4 
1034 RETURN 

1040 IF cs=2 OR cs=5 THEN ce=2 ELSE ce=5 
1044 RETURN 

1050 IF cs=l OR cs=6 THEN ce=3 ELSE ce=6 
1054 RETURN 

1060 IF c:s=2 OR cs=5 THEN ce=3 ELSE ce=2 
1064 RETURN 

1070 IF cs=3 OR c;s=4 THEN ce=l ELSE ce=4 
1074 RETURN 

1080 IF cs=l OR cs=6 THEN ce=2 ELSE ce=l 
1084 RETURN 

1090 IF cs=2 OR cs=5 THEN ce=l ELSE ce=5 
1094 RETURN 

1100 IF cs=2 OR cs=5 THEN ce=3 ELSE ce=2 
1104 RETURN 

1110 IF cs=3 OR cs=4 THEN ce=l ELSE ce=3 
1114 RETURN 

1120 IF cs=3 OR cs=4 THEN ce=l ELSE ce=4 
1124 RETURN 

1130 IF cs=2 OR cs=5 THEN ce=l ELSE ce=5 
1134 RETURN 

1140 IF cs=l OR cs=ó THEN ce=3 ELSE ce=6 
1144 RETURN 

1150 IF cs=2 OR cs=5 THEN ce=3 ELSE ce=2 
1154 RETURN 

1160 IF cs=l OR cs=2 THEN ce=4 ELSE ce=l 
1164 RETURN 

1170 IF cs=l THEN ce=24 ELSE ce=l 

1174 RETURN 

1180 ce=IrRETURN 

1190 cs=2rRETURN 

2000 CLS # 1 :1F suOO THEN 2100 

2010 ;:=RND r IF k>0.5 THEN ce=3 ELSE ce=4 

2020 GOTO 2110 

2100 ON SU GOSUB 1190,1180,1170,1160,1150,1140,1130,1120,1110,1100,1090,1080,107 
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O,1060,1050,1040,1030,1020,1010,1000 

2110 cs=ce :su=su+cs :G0SUB 200:G0SUB 300 .-GOTO 400 

2999 CLS #1 

3000 IF suOO THEN 3100 

3010 CLS #2: LOCATE #2 ,4,2 :PRINT#2 , "QUE CARA COJES" : LOCATE #2,3,4:F'RINT #2,"1 
3 4 5 6" 

3012 x$=INKEYÍ:IF x$<"l" OR x$>"6" THEN 3012 ELSE ce=VAL (:•:$) ¡GOTO 3110 
3100 GOSUB 600:CLS #1 :CLS #2 

1 = 1 TO 2000 :NEXT I :GOTO 500 


3110 cs=ce :su=su+cs:GOSUB 
5000 MODE 1 :RUN" 

8000 DATA "3","2"1 


íOO:FOR 


8002 DATA "3", "6", "2 


8004 DATA 
8006 DATA 


II £ II II ^ II II ^ 


II ^ II II *2 " " Zj. 


8008 DATA "4", "6","5 
8010 DATA "4", "2","6 


5" ,"4“ ,"6" 


II H II I» XI »» I 

9 1 9 ^ 9 


ii cr ii ii h n n n ii 
9 1 9 ^ 


iicr.ii 

9 - 9 


6","3" 

ii h ii ii q ii ii *“y ii 
9 1 9 0 9 jl - 

ii cr ii M 3 11 n j ii 

10000 DATA 358,319,284,284 ,284,253,284,358,426,426,379,358,358,379,426,379 
10100 DATA " DADO 21",," El objetivo del presente juego es sumar" 

,"21 puntos con el dado que aparece en la" , "pantalla 

por turno se ha de ir voltean-","do el dado sobre una de las cuatro caras" 


10101 DATA"laterales sumándose la nueva cara supe- 
r 21 gana, el que se","pase de 21 pierde,",,,,,," 
PULSA TECLA PARA COMENZAR" 


r íor , 


El que logre suma 



TENIS 


1 INK 0,1 :INK 1 ,24 :F'EN 1 : PAPER OsBORDER 1 :M0DE 1 

2 RESTORE lUUUUsFÜR 1 = 1 TO 16 :READ X$:L0CATE 1,I:PRINT X$¡NEXT I 
4 X$=INKEYÍ¡IF X$=" " THEN 4 ELSE CLS 

10 CLS: I NF'UT "Nombre del jugador 1 (max . 10 letras) ";ní:IF LEN(nf) 

CL.S:INF'UT "Nombre del jugador 2 (max. 10 letras) ";m$:IF LEN(m$) 

CLS¡LOCATE 9,10 :PRINT"NIVEL DE JUEGO (1 o 2)" 


12 
14 
16 ;■ 
20 t 
100 
- 1 ) 

102 
110 
- 1 ) 
112 
120 


• 10 
• 10 


THEN 

THEN 


10 

12 


$=INKEY$:IF xf="l" THEN nj = l ELSE IF xf="2" THEN nj=2 ELSE 16 


¡GOSUB 2000¡GOTO 900 


¡RETURN 


:LS :pn=Ü¡pm=0 ¡PX = 10:P Y = 10: X1 =6 : Y1 = 11 : X2=35 : Y2=10 : 

IF y<yl-2 OR y>y 1+2 THEN RETURN ELSE IF (y=yl-2 AND iy=l) OR (y = yl+2 AND iy = 
THEN SOUND 1,100,5 ,7 : ix=-ix:i y=- i y 
SOUND 1,100,5,7:ix =-ix: RETURN 
IF y < y 2—2 OR y>y2+2 THEN RETURN 
THEN SOUND 1,100,5,7¡ix=-ix:i y=- 
SOUND 1,100,5,7¡ix =-ix ¡ RETURN 

IF y<y 1 — 1 OR y>yl + l THEN RETURN ELSE IF <y = yl-l AND iy = l) OR (y = yl + l AND iy = 


ELSE IF ( y = y 2—2 
-iy ¡RETURN 


AND i y = 1 ) OR <y = y2+2 AND" iy = 


Q 

Q 

Q 

e 

Q 

Q 

c 

6 

e 

Q 

C! 

« 

C 

<3 

C 

Q 

C 

c 

c 

<! 

c 

c 

c 

c 

c 

c 

< 
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I 

i 

I 

I 

I 

» 

I 

' 

> 

i 

) 

I 


-1) THEN' SOUND 1 ,100,5,7 : i x =- i x : i y=- i y : x =px : y=p y : RET 
LIRN 

122 SOUND 1,100,5,7:ix=-ix:x=px:y=py:RETURN 

130 TF OR y> y 2+l THEN RETURN ELSE IF (y= y 2-l AND iy=l) OR (y=y2+l AND iy = 

-1) THEN SOUND 1,100,5,7:ix=-ix:i y=—i y:x=px:y=py:RET 

LIRN 


132 SOUND 1 ,100,5,7:ix=—ix:x=px :y=py sRETURN 
140 FOR I=-l TO 1:LOCATE x1 , y 1 + i :PRINT" " :NEX' 

r i:FOR 

i——1 TO 

1 .-LOCATE 

. i-íK , uu + i 

. :PR 

INT CHRÍ(138) :NEXT i:xl=xx: y l = yy:RETURN 

150 FOR I=-l TO 1:LOCATE x2,y2+i:PRINT" ":NEX“ 

r i:FOR 

i ——1 TO 

1:LOCATE 

• XX, yy + í 

i :PR 

INT CHR$ (133) :NEXT i :x 
900 LOCATE PX,PYSPRINT 

2=xx:y2= y y:RETURN 
" ":FOR i=6 TO 35:XÍ=INh 

ÍEYt:LOCATE i , 1 : 

PRINT CHRÍ(143)¡ 

;LOC 


ATE i,20 :PRINT CHRf<143):NEXT i:xx=6:yy = l1:BOSUB 140 
:x x =35:yy=10:GOSUB 150 

910 px=21 :py=10:IY = l:Z=RND:IF Z<0„5 THEN iX = l ELSE iX=-l 
1000 WHILE (px <35 AND px>6) 

1010 x-px+ix : y=py+iy : IF y = 2 OR y=19 THEN iy=—i y :SOUND 1,150,5,7 

1020 IF (x=x1+1 AND ix=-l) THEN'GOSUB 100 ELSE IF (x=xl AND ix=-l) THEN GOSUB 12 
O 

1030 IF (x =x2-1 AND ix = l) THEN GOSUB 110 ELSE IF (:■:=:•:2 AND ix = l) THEN GOSUB 130 
1040 LOCATE px,py:PRINT" " :LOCATE x,y:PRINT CHR*(144) :px=x :py = y 


;1 :yy = yl-l:GOSUB 140 


1060 x$=INKEY$:IF (x*="q M OR xf="Q") AND yl>3 THEN x> 

1065 IF x$=" í" AND y 2>3 THEN xx=x2: yy= y 2~l:GOSUB 150 

1070 IF (xl="a" OR xf="A") AND yl<18 THEN xx=x 1 : yy=y1+1 :GOSUB 140 

1075 IF x*="]" AND y 2<18 THEN xx=x2: yy= y 2+l :GOSUB 150 

1077 IF nj=l THEN GOTO 1200 

1080 IF x$="\" AND x2<34 THEN xx=x2+l:yy=y2 : GOSUB 150 

1085 IF (xf="x" OR x$="X"> AND xl<18 THEN xx=x1+1: yy =y1:GOSUB 140 

1090 IF x$="/" AND x2>22 THEN xx=x2- 1 : yy = y2 : GOSUB 150 

1095 IF <xí="Z" OR xí="z"> AND x1>7 THEN xx=x1-1 :yy=yl¡GOSUB 140 

1200 XÍ=INKEY$:WEND 

1300 IF PX>34 THEN PN=PN+1 ELSE PM=PM+1 
1302 GOSUB 2000:GOTO 900 

2000 LOCATE 6,22:PRINT ní-; " :" ;pn : LOCATE 6,24:PRINT mf-;pm : LOCATE 9,1 :PRINT" 1 : 
PARTIDA 2:ABANDONAR" 

2002 X*=INKEY$:IF X$="l" THEN RETURN ELSE IF X^="2" THEN 4000 ELSE 2002 
4000 CLSsRUN" 

10000 DATA 11 TENIS",," Juego de tenis para dos jugadores, con","do 

s niveles de juego, en el nivel 1, la" , "raqueta se m 

ueve solo en sentido verti,"ca1 en el nivel 2, én sentido vertical y ","horizon 
tal." 

10002 DATA" El jugador 1 esta a la izquierda y mué-","ve con Q,A (arriba y abajo 
), Z,X ( izq ." , "der.) , y el jugador 2 esta a la derec 

ha"," y mueve con C,J (arriba y abajo) , /,\","(izq. der.).",,,," PULSA TECLA 

PARA CONTINUAR" 
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CHR-EDITOR 


10 


PROGRAMA « CHR—EDITOR>> 
EDITOR DE CARACTERES 


20 ' COPYRIGHT M.J.C. & F.A.P. 1985. 

25 SYMBOL AFTER 31:NC=1:DIM A(100,S) 

30 MODE O : BORDER 1 : INK 0,1:1 NK 1 ,26:1 NK 2,24 :1NK 3,8: PAPER O : PEN 1 : CLS 
40 LOCATE 5 ,5 :PRINT "CHR—EDITOR" :F'EN 3:L0CATE 7,12 :PRI NT "EDITOR" : LOCATE 9 14 "F'RIN 
T"DE" :LOCATE 5 , 16 :PRINT"CARACTERES" 


50 FOR T=1 TO 2000 STEP 5:S0UMD 1,T,1:S0UND 2,1+10,1:NEXT 


60 MODE 1 : INK 3,6:F'EN 1 : RESTORE 9000: FOR Z = 1 TO 22 ¡READ Ei .“LOCATE 1 Z-F'RINT Fí-S 
OUND 1,200,2:NEXT:GOSUB 9200:G0SUB 8000 E 1,Z.FRINT Ei.S 

T»pSrfi ! QMB?I E r. 2, ?ií5í2I," DEFINICION DE LAS TECLAS DE MOVIMIENTO" :LOCATE 5,10:PRIN 
I l-AKA SUBIR EL. CURSOR?" 


90 b$-INKE:Y$:IF Si-"" THEN 90 ELSE LOCATE 1 ,4 :F'RINT"SUBIR " ;SÍ 


í?n Pt-í V ,!,Lv; 1 ? [ ; F: nI NT STRING * (30,32) .-LOCATE 5,10 :PRIIMT"PARA ’ BAJAR EL CURSOR?" 
lio Bi-1NKEYÍ:IF Bi="" THEN 110 ELSE LOCATE 20,4 : F'R I NT " BAJAR " ;Bi 

EL'CURSOR^" 5 ’ 10 :PRINT STRINB * (30 ’ 32) ¡LOCATE 1,10 : F'R I NT "PARA LLEVAR A LA DERECHA 

J 30 , D SIÜ£ EY * SIF Dí= "" THEN 130 ELSE LOCATE 1 ,6 :PRINT"DERECHA " ;DÍ 

1 p, rn?ÍLÍ,’, 10:PRINT ST R INGt(39,32):L0CATE 1,10:F'RINT"PARA LLEVAR A LA IZQUIERD 
R fc.L LUhbUR? 

150 IÍ=INKEYÍ: IF Ii="" THEN 150 ELSE LOCATE 20,6 :PRINT" IZQUIERDA " 5 IÍ 

LOCATE 1 ,10 : F ,R í NT STRINGi(39,32):LOCATE 5,10: PRI NT " F'AR'A FIJAR EL CURSOR?" 

1.6 Fi—INKEYi : IF Fi-"" THEN 156 ELSE LOCATE 10,8 :PRINT"FI JAR CURSOR ";FÍ 

160 LOCATE 1,10 :F'RINT STRINGi(39,32) :PR1'NT "ESTAS CONFORME CON ESTAS TECLAS (S/N) 


170 Li INKEYi: IF Li-"" THEN 170 ELSE LÍ=UF'F'ERi (Li) : IF LÍ="N" THEN 80 ELSE IF Li : " 
>"S" THEN 170 

180 PEN 1 :CLS : LOCATE 7,1 : F'RINT "MENU DE OPCIONES :" :RESTORE 9100:F0R Z = 1 TO 9 :READ 
E4 : : LOCATE 1 ,Z*2+2 :F'RINT Z;".- Ei:NEXT:LOCATE 6,23 

: F'RINT "PULSA EL NUMERO DE LA OPCION" :SOUMD 1,100,7 

190 Li=INKEYi:IF Li="" THEN 190 ELSE L=VAL(Li):IF L<1 OR L>9 THEN 190 
200 CLS:ON L GOTO 300 ,300,300,300,300,3000,4000,5000,6000 
210 GOTO 180 ’ 

3 ?2J L ^ 1 1 :AL=1 :IF L =2 THEN LN=L ELSE IF L=3 THEN LN=L ELSE IF L=4 THEN LN=1 :AL=2 
ELSE IF L=5 THEN LN=2:AL=LN 

305 H (O ,0) =1 :ERASE H :DIM H <AL*8 ,LN*8) 

310 PEN 2 :K=1 :FOR Z=1 TO AL*8:L0CATE 1,Z + 1 

320 PRINT MIDi(STRi(K),2,2):K=K+1:IF K=9 THEN K=1 

330 NEXT 

340 K-1:F0R.Z=1 TO LN*8 : LOCATE 1+Z,1 

350 F'RINT MI Dí (STRi (K) ,2,2) : K=K+1 :1F K=9 THEN K=1 

360 NEXT 

370 Ki=STRINGÍ <LN*8,144) :FOR Z = 1 TO AL*8:L0CATE 2 , Z + l : F'RINT KÍ:NEXT 
375 IF SÍ=CHRÍ(24u) AND BÍ=CHRÍ(241) AND DÍ=CHRÍ(243) AND IÍ=CHRÍ(242) THEN 390 
38U LOCATE 33,3:PRINT Si: LOCATE 30,6:PRINT IÍ:LOCATE 36,6: F'RINT Di: LOCATE 33,9 :F' 
R1 NT Bí 

390 LOCATE 30,1 : PR I NT " TECLAS :" :LOCATE 33,4:F'RINT CHRi (240) :LOCATE 31,6:F'RINT CHR 
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$(242);" " ;CHR$ (243) :LOCATE 33,8:F'RINT CHR$(241) 

400 LOCAtE 3 i ,10: F'R I NT " FI JAR : " : IF F$=CHR$<32> THEN LOCATE 30,11 ¡F'RINT "<SPACE>" 
ELSE LOCATE 33,11 :F'RINT F$ 

405 LOCATE 28,13: F'R I NT " <ENTER > PARA" .-LOCATE 30,14 :PRI NT "TERMINAR" 

410 INK 3,6 ,26 ¡SF'EED INK 3,3 :H= 1 :V= 1 :F'EN 3:L0CATE H+l ,V+1 ¡F'RINT CHR$(143) 

420 L$=INKEY$:IF L$=CHR$(13) THEN SOUND 1,100,5:G0T0 1500 

430 IF L„$=S$ AND V>1 THEN SOUND 1,50,1:GOTO 1000 

440 IF L$=B$ AND V<AL„*8 THEN SOUND 1,50,1:G0T0 1100 

450 IF L$=D$ AND H<LN*8 THEN SOUND 1,50,1:G0T0 1200 

460 IF L$=Ií AMD H>1 THEN SOUND 1,50,1:G0T0 1300 

470 IF L$=F$ THEN SOUND 1,300,3 .-GOTO 1400 

480 GOTO 420 

1000 GOSUB 2000:V=V-1:GOSUB 2100:GOTO 420 
1100 GOSUB 2000:V=V+1:GOSUB 2100:GOTO 420 
1200 GOSUB 2000:H=H+1:GOSUB 2100:GOTO 420 
1300 GOSUB 2000:H=H-1:GOSUB 2100:G0T0 420 
1400 IF H(V ,H)=0 THEN H(V,H)=1 ELSE H(V,H)=0 
1410 GOTO 420 

1500 GOSUB 2000:XR=16:D(1)=1:ERASE D : DIM D(8) 

1505 IF AL=2 THEN XR-18 

1510 FOR Z=1 TO LM:FOR X = 1 TO AL 

1520 CK=3:GOSUB 1800 

1530 F'EN 2 : LOCATE 1,24:F‘RINT STRINGt(40,32) ¡LOCATE 3 ,24 : INF'UT"N . DEL CARACTER QU 
E TRANSFORMAMOS";!' 

1540 LOCATE 1,24:F'RINT STRINGÍ (40,32) 

1550 IF T<33 THEN LOCATE 1 ,24:F'RINT"CAR'ACTER PROHIBIDO, ESTA RESERVADO" ¡GOTO 157 
O ELSE IF T0143 AND T<>144 THEN 1580 

1560 IF !'= 143 OR T=144 THEN LOCATE 1 ,24: F'R I NT "CARACTER PROHIBIDO, ES ";CHR$(T) E 
LSE 1580 

1570 SOUND 1,1000,30 ¡FOR T=1 TO 2000 :NEXT ¡LOCATE 1,24¡PRINT STRINGf-(40,32) ¡GOTO 
1530 


1580 LOCATE 1 ,24 ¡F'RI NT "ANTIGUO CARACTER": 
MAMÜS (S/N)" 


" ;CHR$(T) ¡LOCATE 9 ,25:PRINT"LO TRANSFOR 


1590 L$=INKEY$:IF L$="“ THEN 1590 ELSE L$=UPPER$(Lí):IF L$="N" THEN LOCATE 1,24: 
F’RI NT STRINGí<40,32)¡LOCATE 1,25¡F'RINT STRING*<39,32 
) ¡GOTO 1530 ELSE IF L$<>"S" THEN 1590 

1595 LOCATE 1 ,24 : PRI NT STRING* (40,32) ¡LOCATE 1,25¡F'RINT STRINGí (39,32) 

1600 CC=0:F0R Y=X*8-7 TO X*8 ¡SOUND 1 ,200,5 :G$="" :CC=CC+1 :FOR I=Z*8-7 TO Z*8¡S0UN 
D 1 ,100 ,2 ¡G$=G$+RIGHT$(STRí(H(Y,I)) ,1) :NEXT:A(NC,CC) 

-VAL ( "&X"+GÍ) :D (CC) =A (NC ,CC) ¡NEXT 
1610 A(NC,O)=T:NC=NC+1 


1620 LOCATE 1,XR:PRINT T;":";:FOR 1=2 TO 9 ¡LOCATE I*4,XR:F'RINT USING"###" ;A (NC-1 
,1-1) :NEXT 

1625 CK=2;GOSUB 1800 


1630 SYMBOL T,D(1) ,D(2) ,D(3) ,D(4) ,D(5) ,D(6) ,D(7) ,D(8) :XR=XR+2:NEXT 
1640 NEXT 

1650 GOSUB 8000¡GOTO 180 

1800 F'EN CK :K=1 :FOR y=¡:*8-8 TO *8 ¡LOCATE l,y+l:PRINT MID$ (STRÍ (K) ,2 ,2) :K=K+1 :NE 


1810 K=1 ¡FOR I = Z¡K8-8 TO Z*8:L0CATE 1 + 1,1 :PRINT MID$(STR$(K) ,2,2) ¡K—K+l :NEXT :RETU 
RN 

2000 LOCATE H+1,V+1¡IF H(V,H)=0 THEN F'EN 2 ¡F'RINT CHR$(144) ELSE F'EN 1 ¡F'RINT CHR$ 
(143) 

2010 RETURN 

2100 F'EN 3 : LOCATE H+l ,V+1 : F'RI NT CHR$ (143) :F'EN 2 ¡RETURN 
3000 F'EN 1 ¡LOCATE 5,1 ¡F’RI NT "VER LOS CARACTERES" :CC=24 :CF=1 

3010 LOCATE 1 ,22 ¡F'RI NT "PARA VOLVER AL MENU PULSA M" ¡LOCATE 1 ,23 ¡F'RI NT "PARA VER O 
TRO CARACTER PULSA 0" ¡LOCATE 1 ,24 ¡F'RI NT "PARA CAMBIAR 
COLOR DEL CARACTER PULSA C" ¡LOCATE 1 ,25 ¡F'RI NT "PARA CAMBIAR COLOR DEL FONDO F'ULS 
A F" 

3020 LOCATE 3,20 : INF'UT"QUE CARACTER QUIERES VER" ;T 

3030 LOCATE 3,20:F'RINT STRINGí (37,32) : IF T<33 0RT>255 OR TOINT(T) THEN 3020 
3040 F'EN 2 ¡LOCATE 20,12:F'RINT CHR$(T) 

3050 L$=INKEYÍ¡IF L$="" THEN 3050 ELSE L$=UPPER$(L$):IF L$="M" THEN GOSUB 3600:G 
OTO 180 ELSE IF Lí="0" THEN GOSUB 3600 ¡CLS¡GOTO 3000 
ELSE IF L$="C" THEN 3300 ELSE IF L$="F" THEN 3500 ELSE 3050 
3300 CC=CC+1 : IF CC>26 THEN CC=0 ELSE IF CC=CF THEN CC=CC+1:IF CC>26 THEN CC=0 
3310 INK 2,CC¡GOTO 3050 
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3500 CF=CF+1:IF CF>26 THEN CF=0 ELSE IF CC=CF THEN CF=CF+1:IF CF>26 THEN CF=0 
3510 INK 0,CF :G0T0 3050 
3600 INK 0,1:1NK 2,24:RETURN 

4000 IF NC>0 THEN PRINT"PREPARA EL CASSETTE PARA ALMACENAR T0D0SL0S CARACTERES Q 
UE HAS DEFINIDO" ELSE GOTO 180 

4010 PRINT :F'RINT :SPEED WRITE 1 :RRI NT "NOMBRE DEL ARCHIVO" :F'RINT" (max imo 10 caract 
eres) " :PRINT :PRINT : INPUT Nf-:IF LEN(N*)>10 THEN CLS:G- 
OTO 4010 

4015 CLS:LOCATE 2,12:PRINT"ALMACENANDO";NC-1 ;"CARACTERES DEFINIDOS" 

4020 OPENOUT NT 
4030 F'RINT#9 ,NC 

4040 FOR Z=1 TO NC-1:FOR X=0 TO 8 
4050 PRI NT#9, A (Z,X) 

4060 NEXT:NEXT 
4070 CLOSEOUT 

4080 CLS :LOCATE 9,12:PRINT"CARACTERES ALMACENADOS":GOSUB 8000:G0T0 180 
5000 PRINT"CARGA DESDE EL CASSETTE DE CARACTERES DEFINIDOS":PRINT:PRINT 
5010 OF’ENIN "" 

5020 INPUT#9,NC 

5030 A(1,1)=1:D(1)=1:ERASE A,D : DIM A(100,8) ,D(8) 

5040 FOR Z=1 TO NC-1:FOR X=0 TO 8 
5050 I NF'UT #9 , A (Z , X) :D(X)=A(Z,X) 

5060 NEXT:SYMBOL D(0) ,D(1) »D(2) ,D(3) ,D<4) ,D(5) ,D<6) ,D(7) ,D<8) :NEXT 
5070 CLOSEIN 

5080 CLS:LOCATE 1,12:PRINT NC-1;"CARACTERES CARGADOS DESDE CASSETTE":GOSUB 8000: 
GOTO 180 

6000 SYMBOL AFTER 31 :MODE 1:INK 0,1: INK 1,24:PAF'ER 0:PEN 1 :CLS: PRINT "PREPARADO F' 
ARA EL SIGUIENTE PROGRAMA":RUN"" 

8000 LOCATE 2,25:PRINT"PULSA CUALQUIER TECLA PARA CONTINUAR" 

9010 IF INKEYT="" THEN 8010 
8020 RETURN 
9000 DATA 


"EDITOR DE CARACTERE S","=========================== 

=========== : =" , , " Este programa permite la def inicio 

n de" ,nuevos caracteres no existentes en la,serie de caracteres gráficos que inc 
or-,pora el AMSTRAD., 

9010 DATA " Podras, de esta -forma, definir f iguras" ," ined itas para tus dibujos, 
gráficas y ", juegos.,, " El carácter recien definida 

podras" , asignarlo a cualquiera de los ex istentes,"(desde el 33 al 255), de form 
a que" 

9020 DATA debes tener cuidado con ciertos números,(ver manual AMSTRAD Apéndice I 
II p 2-13) ,," Los caracteres que puedes crear serán 

",todos de 8 x 8 puntos pero con el pro-,grama puedes definir figuras formadas,p 
or mas de un carácter. 

9100 DATA DEFINIR CARACTER 1 x 1,DEFINIR CARACTERES 2 x 1,DEFINIR CARACTERES 3 x 
1,DEFINIR CARACTERES 1 x 2 ,DEFINIR CARACTERES 2x2 
,VER CARACTERES,ALMACENAR CARACTERES EN CASSETTE,CARGAR CARACTERES DESDE CASSETT 
E ,FIN DEL PROGRAMA 

9200 SYMBOL 144,255,129,129,129,129,129,129,255:RETURN 
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SUBMARINO 


10 ■' <<< SUBMARINO »> 

20 ' 

30 SYMBOL AFTER O.-MODE 1 :BORDER U:INK 0,11 :INK 1,24:INK 2,6:INK 3,1:PAPER 0:PEN 
1:CLS :RESTORE 9000:FOR Z = 1 TO 25:READ Eí:LOCATE 1,Z 
:F'RINT E$: SOUND 1 ,100,3 :NEXT :GOSUB 9500 
40 IF INKEYf="" THEN 40 

50 MODE 1:BORDER 1:WINDOW #0,1,40,12,25:PAPER #0,3:PEN #0,1:WIND0W #1,1,40,2,11: 
PAPER # 1 ,0 : PE1M # 1 ,2 : WINDOW #2,1,40,1,1: PAPER #2,3: F'E 
N #2,2:CLS #0:CLS #1 :CLS #2 

60 NS=5 :NT=10:TT=0:NB=TT :TB=TT:GOSUB 8000:G0SUB S010:G0SUB 8020:YB=10 
70 X-20 : Y =11:GOSUB 5010:XMN=2:YMN=XMN:DXMN=1:DYMN=DXMN:GOSUB 5020 
80 L$=INKEY$:IF Lf<>"" THEN L$=UPPER$ (Lf ) 

90 IF L*="F" THEN 10000 

100 IF L*="Q" AND X>1 THEN GOSUB 5000:X=X-1 
110 IF L*=="W" AND X<40 THEN GOSUB 5000:X = X + 1 
115 GOSUB 501O:GOSUB 5200 

120 IF L*=CHR$(32) AND TF-0 THEN TF'=1 : XTF‘=X : YTP=Y-1 :NT=NT-1 :GOSUB 8010:TT=TT+1 
125 IF TP=0 AND NT=0 THEN 7100 

130 GOSUB 5020:IF XMN=X AND (YMN=Y OR YMN=Y+1) THEN 6000 
140 IF TP=1 THEN GOSUB 5100 
200 GOTO 80 
999 GOTO 999 

5000 L0CATE#0,X,Y:PRINT E$ :L0CATE#0,X,Y +1:PRINT Eí :RETURN 
5010 L.0CATE#0 , X , Y ;PR INT SBlí :L0CATE#0 , X , Y + l :F'RINT SB2*: RETURN 

5020 F'EN#0 ,2 :LOCATE #0 , XMN , YMN :F'RINT E*:IF XMN>1 AND XMNC40 THEN XMN=XMN+DXMN EL 
SE DXMN=-DXMN:XMN=XMN+DXMN 

5030 IF YMN>1 AND YMN<13 THEN YMN=YMN+DYMN ELSE DYMN=-DYMN:YMN=YMN+DYMN 
5040 L0CATE#0 , XMN , YMN :F'RINT#0 ,MN$ :.PEN#0,1 :RETURN 
5050 LOCATE# 1 , XB , YB :F'RINT B$ (BB) :RETURN 

5100 L0CATE#0 , XTP , YTP':F'RINT#0 ,E$ :SOUND 1,10,2:IF YTP>1 THEN YTF-YTP--1 :L0CATE#0 , X 
TP , Y TP:PRINT#0,TPÍ:RETURN 

5110 TF-0:IF XTP>=XB AND XTPÍXB+LB THEN 5120 ELSE RETURN 

5120 V0L=15:F0R Z=2000 TO 1950 STEF' -1 :LOCATE# 1 , XTP , YB :F'RINT#1 ,EX lí :LOCATE# 1 , XTP 
,YB:F'RINT#1 ,EX2$:S0UND 1 , Z , 3 , VOL : SOUND 2 , Z + l 000 ,3 , VO 
L : V0L=V0L-0.13:NEXT:NB=NB+1:GOSUB 8020 :NT=NT+4-LB:GOSUB 8010 
5130 LOCATE# 1 , XB , YB :F'RINT#1 ,STRING$ (3,32) :XB=0:RETURN 

5200. IF XB<2~THEN-L0CATE#1 ,1 , YB :F'RINT#1 ,STRINGÍ <3 ,32) :BB=INT (RND*6+1) :LB=LEN (Bí ( 
BB))-l:XB=40—LB:TB=TB+1 

5210 XB-XB-1 :L0CATE#1 , XB , YB :PRINT#1 ,B$ (BB) .-RETURN 

6000 F'EN#0,2 : V0L=15 :FOR Z=3000 -TO 2950 STEP -1 :L0CATE#0 , XMN , YMN :PRINT#0 ,EX 1 $ :LOC 
ATE#0,XMN,YMN:F'RINT#0,EX2f : SOUND 1 , Z ,3 ,VOL :SOUND 2,Z 

+ 1000,3 ,VOL :V0L=V0L-0.13 :NEXT :F'EN#0,1 :NS=NS-1 :GOSUB 8000 :IF NS=0 THEN 7000 ELSE 
80 

7000 L0CATE#0,1,1:F'RINT#0 , "TU FLOTA DE SUBMARINOS HA SIDO DESTRUIDA":GOTO 7500 
7100 L0CATE#0,1,1: F‘R I NT #0 , " TE QUEDASTE SIN TORPEDOS, HAS PERDIDO !!!" :GOTO 7500 
7500 FOR T= 1 TO 3000 :NEXT :MODE 1:CLS:L0CATE 5,6: F'R INT" PUNTUAC ION:": LOCATE 2,8:PR 
INT"N . TOTAL DE TORPEDOS DISPARADOS : 11 ; TT : LOCATE 2,10 

:PRINT"N . TOTAL DE BARCOS ENEMIGOS:" ;TB :LOCATE 2,12:PRINT"N. BARCOS ENEMIGOS HUN 
DI DOS:"'; ÑB 

7510 LOCATE 1,14:PRINT"HAS HUNDIDO EL";INT<NB*100/TB);"X DE LA FLOTA ENEMIGA":L0 
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CATE 7,22:PRINT"PARA OTRA PARTIDA PULSA P":LOCATE 7, 

24:PRINT"PARA OTRO PROGRAMA PULSA O" 

7520 LÍ=INKEY$:IF L$="" THEN 7.520 ELSE L$=UPPER$ <L$) 

,7530 IF Lf="P" THEN RUN ELSE IF L$="0" THEN 10000 ELSE 7520 
8000 LOCATE #2,2,1¡PRINT#2,"N. ";NS$: 


RN 

8010 LOCATE #2,13,1 :PRINT#2,"N. 
ETURN 

8020 LOCATE #1 
NB ¡RETURN 
9000 DATA " 
en" , "guerra, 


":LOCATE #2,8,1:PRINT#2,USING"##";NS:RETU 
";TPf ; "¡LOCATE #2,18,1:PRINT#2,USING"### M ;NT:R 
,1:PRINT#2 ,B$ (4) ;"HUNDIDOS:"¡LOCATE #2,36,1 ¡PRINT#2,USING"###"; 


<<< SUBMARINO >>>",," Eres el Capitán de un submarino 
por lo tanto tu misión es",hundir el 

Te bastara un solo toroedo para h 


máximo numero posible de,barcos enemigos.,," 
undir" 

9U1U DATA a cualquiera de tus enemigos y por cada,uno que hundas recibirás mas t 
orpedos., , " El enemigo estara defendido por medio", 

de una terrible mina submarina.,," El movimiento del submarino se realiza" 

9üi.o DATA con las teclas Q (a la izquierda) y,"W a la derecha) , el torpedo se di 
spara" ,pulsando la barra espadadora. , ," El juego t 

ermina al ser hundido cinco" , "veces, al acabarse los torpedos o al".pulsar la te 
cía F. 

9030 DATA ,," PULSA UNA TECLA PARA COMENZAR EL JUEGO" 

9500 SYMBOL 170,16,56,124,124,254,254 ,238,198¡SYMBOL 171,198,198,238,254,124,124 
,56,40¡SYMBOL 172,0,0,2,78 ,83,255,127,62¡SYMBOL 173, 

0,0,0,0,8,28,254,127¡SYMBOL 174 ,0,7,116,55,255,127,63,31¡SYMBOL 175,64,192,39,24 
6,255,255,254,252 

9510 SYMBOL 176,0,0,73,73,255,127,63,31¡SYMBOL 177,32,60,34 ,62,255,255,254,252¡S 

YMBOL 178,0,0,238,102,255,127,63,31¡SYMBOL 179,0,127 

,170,213,255,255,255,255¡SYMBOL 180,48 ,248,172,84,255,255,254,252 

9520 SYMBOL 181,4,60,20,255,63,31,15,7¡SYMBOL 182,16,241,83,255,255.255,255.255: 

SYMBOL 183,240,168,84,255,252,252,248,240 

9530 SYMBOL 186,16,56,56,56,56,16,56,40¡SYMBOL 187,36,60,235,86,106,215,60,36 :SY 
- MBOL 188,133,80,132,41,134,53,74,149:SYMB0L 189,34,2 
0,165,66,165,153,74,36:E*=CHR*(32)¡SB1*»CHR$(170):SB2í=CHRí(171):TP$=CHR$(186):M 
NÍ=CHRÍ(187) 

9540 EX 1t=CHRÍ(188) :EX2$=CHR$(189) :B$<1)=CHR$(172)+EÍ:B$(2)=CHR$(173)+E$:B$(3)=C 
HRÍ(174)+CHR$(175)+E$:B$(4)=CHR$4176)+CHRÍ(177)+EÍ:S 

YMBOL 190,1,0,3,63,127,255,127,63¡SYMBOL.191,192,192,224,248,253,254,254,253 
9550 B$(5)=CHRÍ(178)+CHRÍ(179)+CHRÍ(180)+E$:B$(6)=CHR$(181)+CHR$(182)+CHRÍ(183)+ 
E$:NSÍ=CHR$(190)+CHRÍ(191) ¡RETURN 

10000 MODE 1 ¡CLS ¡F'RI NT "PREPARADO PARA EL SIGUIENTE PROGRAMA ¡RUN" " 
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NOVEDADES 


IAN KEY-COVER 


IKK 




IAN KEY-COVER, ES EL PROTECTOR IDEAL PARA EL TECLADO DE SU AMSTRAD 6128 ESPECIALMENTE DISEÑADO 

PARA REUNIR TODAS LAS CARACTERISTICAS ADECUADAS PARA ELLO: 

- PROTECCION FIRME DEL TECLADO DEL CPC 6128 (REALIZADO CON RESISTENTE METACRILATO DE UNA SOLA 
PIEZA CON NERVIOS LATERALES PARA FIJACION EN EL REBORDE DEL CONJUNTO DE SU ORDENADOR). 

- AJUSTE PERFECTO EN SU ORDENADOR CON SUAVE PRECISION Y COBERTURA TOTAL. 

- TRANSPARENTE (CONFIRIENDOLE LA PROPIEDAD DE VISUALIZAR EN TODO MOMENTO SU TECLADO). 

- PROTECCION CONTINUA CONTRA ELEMENTOS EXTERNOS (COMO: DERRAMES DE LIQUIDOS, GOLPES, ETC.) 
ADEMAS DE GOZAR DE LA SEGURIDAD DEL BUEN FUNCIONAMIENTO DE SU ORDENADOR AL REANUDAR SU 
DIARIO QUEHACER. UN POCO DE CAFE DERRAMADO SOBRE SU TECLADO ELEVARA ENORMEMENTE EL 
PRESUPUESTO ANUAL DE SU ORDENADOR. EVITE EL RIESGO, PROTEJASE. 

- RESGUARDO PERMANENTE CONTRA EL POLVO Y LA POLUCION (EL 50 % DE LAS AVERIAS DE SU TECLADO SON 
MOTIVADOS POR EL CONTACTO CONSTANTE DE ESTE CON EL POLVO Y LAS PARTICULAS ATMOSFERICAS, EL 
EXCESO DE HUMEDAD, ETC.). ELIMINE UN RIESGO CONTINUO, DOSIFIQUELO. 

- MANTENGALO LIMPIO SU AMSTRAD 6128, CUBRIENDOLO CON IAN KEY-COVER. 

- DELE AL TECLADO DE SU AMSTRAD 6128 ESA SENSACION DE PULCRITUD, SENTIDO DEL ORDEN Y APARIENCIA 
EXTERNA QUE SU AREA DE TRABAJO, ESTUDIO O ENSEÑANZA, REQUIERE. 


1986 AMIGOS DEL AMSTRAD - 33 





















BIBLIOGRAFIA 



EL DOMINIO DEL AMSTRAD 
PCW 8256/8512 


DOMINE EL CODIGO MAQUI¬ 
NA EN SU AMSTRAD 


“El dominio del Amstrad PCW 8256/8512” 
le sitúa en la vía rápida hacia el éxito en los 
negocios. Lo mismo si está Vd. empezan¬ 
do a utilizar uno de estos ordenadores, co¬ 
mo si está considerando comprárselo, es¬ 
te libro le mostrará rápidamente cómo ren- 
tabilizar al máximo su inversión. 

Una gran parte del libro trata del proceso 
de texto. 

Esta parte del libro es un medio didáctico 
excelente, que le conducirá desde los usos 
más sencillos del proceso de textos, a los 
más avanzados. Una sección aparte cubre 
el uso de NewWord, la potente alternativa 
de NewStarSoftware. 


Ahora tiene la oportunidad de aprender a pro¬ 
gramar en código máquina en su ordenador 
Amstrad. Clive y Scott —dos programadores 
muy competentes, con gran experiencia en li¬ 
bros y software a sus espaldas— son los guías 
ideales para ayudarle a comprender las inte¬ 
rioridades de la programación en código má¬ 
quina del Amstrad. 

Debe ir trabajando en código máquina del 
Amstrad. 

Debe ir trabajando a lo largo del libro, saltán¬ 
dose las secciones que le presentan una es¬ 
pecial dificultad la primera vez que las lea. 
Cuando haya terminado su primera lectura, 
tendrá los suficientes conocimientos como pa¬ 
ra poder comprender aquellas secciones que 
dejó sin completar la primera vez que pasó por 
ellas. 
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